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CoCo 3 Directory 
Assistance 



Have you ever found yourself wading 
through a stack of full (of course) 
disks looking for a specific file? (More 
than once?) It's kind of like trying to find 
the proverbial needle, isn't it? Directory 
Master is a CoCo 3 program designed to 
help you out of such haystacks with a mini- 
mum of effort. Directory Master, which 
requires a monochrome or KGB monitor. 
displays up 10 68 filenames (the per-disk 
maximum supported by Disk BASIC) on- 
screen at one time. And it docs a lol more. 
To get Directory Master running on 
your CoCo 3, enter both listings presented 
here and save them to disk. The program 
shown in Listing 1 is the main program. 
Before you run it. however, you must run 
the program shown in Listing 2 to create the 
screen font Directory Master uses for the 
Hi-Res screen. When you run the program 
in Listing 2. die new screen font is auto- 
matically saved to the disk in Drive — 
make sure you have at least one free granule 
on Uic disk. The font is saved with the name 
STRDN0D3.BIN. 

To start Directory Master, simply enter 
RUIT'DMASTER". After the program has 
loaded, it loads STRDM0D3.BIN from the 
disk in Drive 0. then displays the directory 
for that disk. 



The Directory Master directory listing 
is split into four columns. At the top of the 
screen you'll see the current name for the 
disk, the currently selected drive, the total 
number of files on the disk, and the number 
of free granules remaining. At the bottom 
of the screen arc the It) command options 
available to you while miming the program. 
To invoke an option, simply press the single 
letter associated with it. 

Before I describe these options, let me 
explain how to select files- When you choose 
an option that requires you to select a file, 
the program highlights the first filename in 
the directory listing. Use the space bar to 
move this highlight bar down the listing and 
press ENTER to select the highlighted file. 
When the bar reaches the end of the listing, 
it reappears at the top. Directory Master's 
options are as follows: 

R (Execute) — loads from disk and 
executes the selected BASIC or machine- 
language program. 

L (Load) — loads the selected basic 
program from disk without running it. 

N (Filename) — renames the selected 

file. The new filename and extension are 

handled separately — enter up to eight 

characters for the filename. 

See Directory on Page 20 





A root reason for using computers is to 
make the tasks we must perform much 
easier to accomplish, and this assistance 
occurs on many levels. For instance, most 
users of the OS-9 operating system know 
about the special repeal "key." CTRL-A. 
You can type a command line, and if you 
pressCTRL-A right 
after pressing EN- 
TER, you can recall 
it ad infinitum. This 
is great for correct- 
ing typing errors and 
makes entering re- 
petitive commands 
easier. Still, it can 
be quite cumber- 
some for many com- 
puter chores. This is 
why I wrote Rep. 

Rep permits repealed execution of OS-9 
commands, taking the commands' parame- 
ters from the standard input path (via the 
keyboard), a pipeline or redirection from a 
text file. To use Rep. simply type rep fol- 
lowed by the name of ihe command you 
want repeated. In place of the parameter for 
the command, substitute a dollar sign (S). 
Let's look at an example. 

Suppose you want the header informa- 
tion for a number of binary files that are 
located in your execution directory. You 
could enter ident -x filename to get the 
information about the first file. ( -x is OS- 
9*5 built-in option for specifying the cur- 
rent execution directory.) Then you might 
use CTRL-A, backspace over the first file- 
name, type the second one, and press 
ENTER. Do this for a dozen files and ii gets 
a little old. Rep allows you to enter 

rep ident -x $ 




Upon receiving this command line, OS-9 
executes rep, which links to ihe Ident 
command if it's present in memory. (If 
i dent is not in memory, the system loads it 
from the execution directory.) rep Uien 
wails for you to type a filename and press 
ENTER. When you 
do this, rep executes 
Ident, replacing the 
$ with the filename 
you entered. After 
ident displays the 
module's data, rep 
waits for another en- 
try. Simply continue 
entering filenames 
until you have all the 
information you 
need. When you are finished, press ENTER 
— rep unlinks ident and terminates. 

Rep's operation with an OS-9 command 
can be made more automatic by passing 
parameters for the command from a pipe- 
line or by redirection from a text file. For 
example. 1 use a directory utility called a 
that lists the tiles in a directory one filename 
per line rather than spreading them across 
the screen. If I want to copy all the files in 
the current data directory to my ARCHIVE 
directory. I use Rep as follows: 

d I rep copy $ /dl/archlve/S 

d supplies rep with all the filenames in the 
directory, one at a lime, rep executes copy 
for each filename, replacing each 1 with the 
filename, and copying all the files to the 
/Dl/ARCHIVE directory, rep automatically 
terminates after the last file in the directory. 
The earliest version of Rep. which ap- 
See Repeals on Page 12 
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Happy Birthday, 
RAINBOW! 

Well, we've come a long way together, 
my friends. This issue of TllF. rainbow 
marks ihe beginning of our twelfth year of 
service to the CoCo Community. And. we 
expect to be around for quite a bit longer. 

As I told you in this space recently, we 
have — overall — received an extremely 
positive reaction to our new format. Yes. 
we have had some complaints from a 
number of readers, and even a few letters 
cancelling subscriptions. But the over- 
whelming reaction from advertisers and 
readers has been very positive. 

What is more important is whal many of 
you who haven't written or called directly 
are saying; you have been "voting" by 
sending in renewal subscriptions orders. 
Interestingly, since wc changed our format, 
the renewals lo THE rainbow have been 
higher on a percentage basis than they have 
been in the last year and a half. This is good 
news for us and for all of you as well. 

What has been the biggest complaint we 
have received? That it is difficult to get the 
new format into the binders we sell! I be- 
lieve this means most of you still (and you 
should! > consider THE RAINBOW as an out- 
standing source of information about your 
Color Computer. 

(By the way, we are looking into the 
binder problem. But Ray Meers. one of our 
readers from California, wrote the other 
day to tell us he merely folds the new 
publication over one of the wires in the 
binder and it works quite nicely. "Some- 
thing like the way they display newspapers 
in libraries." he says. We tried it and it 
works. It must, because Ray ordered some 
additional binders with his "tip.") 

We keep getting new subscribers, loo. 
Not only is this good news for the health of 
THF rainbow, but it is interesting what 
these new readers are saying. John Walker 
of Wisconsin wrote us to say that he has 
finally given up on his Apple || "and was 
lucky enough to be able to buy a CoCo from 
a friend who had two systems. One look at 
THE rainbow was enough: I wouldn't be 
without it." 

John ordered all the back issues wc had, 
too. Which, incidentally, brings me lo a 
gentle reminder: some of our back issue 
supplies are running a bit low. We consid- 
ered selling every one of ihem in a set as a 
sort of "CoCo Encyclopedia." but decided 
not to do that al this time because many of 
you have a bunch of them and we thought it 
might be more difficult to do it that way 
than not. If you are interested in back issues, 
now is a good time to order them. 

It is probably fair to say that the CoCo 
has won a whole lot of converts in the past 
year. This is something fairly amazing for a 
system which has not been manufactured in 
several years. But when you look at it. the 
Color Computer has as much power as any 
of us will likely need in the forsccablc 
future. I wrote about this a few months ago, 
so I will not belabor the point — my mail 
seems toagree with me.any way. Although. 
I think it only fair to report th.it it seems I 
have stirred up something of a hornet's nesl 
- obviously some members of the CoCo 
Community have misinterpreted what I 



wrote in the May issue. I'll try to explain it 
better this lime. 

I am nut advocating that anyone with a 
CoCo "change" lo an MS-DOS system. I 
continue lo use and appreciate all the many, 
many things our CoCos can do. Neither am 
I advocating MS-IXXSasa substitute in any 
way for OS-9 as it is implemented on our 
Color Computers. 

What I am saying, however, is that I do 
not see the new "CoCos" as a viable 
alternative // you want more power and 
more software options than are now avail- 
able with your Color Computer. We have 
researched these machines, tested them 
extensively and looked carefully at the 
software market. Wc do not sec them as a 
viable option for your Color Computer. 

I do not see these o8xxx-based machines 
surpassing your Color Computer in useful- 
ness for the simple reason that I don't be- 
lieve there will ever be as great a software 
base for them as there is now for the CoCo. 







And the same is true for MS-DOS. I advo- 
cated — and slid do — that you use your 
CoCo simply because it is a great computer. 
But I also said — and still say — ifyouu/v 
going to look for another computer. I be- 
lieve the obvious choice is not some poorly 
supported 68xxx-based machine, but an 
MS-DOS computer. 

There is one more issue that has prompted 
a couple of letters in the past week. Upon 
reading that. 1 changed the cover from an 
"illustration" format lo a "news" formal at 
ihc last minute, thus adding space for actual 
information, a few of you wrote to suggest 
1 might wish lo eliminate this column from 
THE rainbow's pages for the same reason. 

While I have used "Printtf-2." for years 
to communicate with the CoCo Commu- 



nity. I must admit that the idea has some 
merit. And I am asking lor some inpui from 
all of you. Of course, when important things 
huppen.you will find me here in (his space. 
But otherwise, wc could devote it to CoCo 
news and information. 

What do you think? Drop me a line and 
let me know. I will appreciate your input 
(and my feelings won't be hurt if you agree 
with this idea). 

I used to publish a list of people who I 
believed helped the CoCo Community the 
most during the past year, but as the list got 
longer and longer. I dropped it for fear of 
leaving people out. I am not going to revive 
the practice this time — - primarily because 
the list would be thousands of names long 
and would include all of you. 

Yes, whal has made the Color Computer 
this past year has been each of you. Your 
loyalty to the CoCo Community, to our 
advertisers, to THF. RAINBOW and. most of 
all. to each other. 

Long live CoCo! 



1 do hate to close this column on a sad 
note, but 1 must. I would probably not fee the 
publisher had I not had the benefit of the 
wonderful guidance, skillful business acu- 
men and profound advice of a dear and 
good friend who was an intergral pan dur- 
ing much of the early development of both 
THE RAINBOW and Falsoft. Inc. 

Kenny Hirsch passed away in January of 
this year. The story that ran in the local 
newspaper the day after Kenny left us said 
he was a business leader who was active in 
civic affairs, listed numerous boards and 
commissions on which he served, and 
mentioned many of his achievements. 

But what mere ink on newsprint could 
never express was that he was a great and 
dear man. profoundly loved by everyone he 
knew. And Kenny knew thousands. To sec 
him greeting his friends each May at ihc 
Kentucky Derby — wearing some of the 
mosl outlandish combinations of pants and 
sportcoats 1 have ever seen — was almost as 
much a harbinger of spring as the tulips in 
the gardens at Churchill Downs on the first 
Saturday in May. 

The first Saturday in May is gone, and so 
is my friend. I miss him terribly. The beauty 
of his life — an all-too-short 49 years — 
abides among all who knew him as a loving 
benediction. 

— Lonnie Falk 




Letters to the 
RAINBOW 



In Place ofthe DMP-130 

Editor: 

I have enjoyed THE RAINBOW thoroughly 
for more than seven years and look forward 
lo many more. I am truly adie-hard CoCoist 
(I have a CoCo I , a CoCo 2. a CoCo 3, two 
disk drives, a DMP-130 and a CGP-1 15. 

My biggest fear is that 1 will be left in the 
dark should something happen to my DMP- 
1 30? Will you please furnish me with infor- 
mation about printers that could replace the 
DMP-130 without my having to make 
changes lo the hundreds of programs I now 
have? I really want to buy a 24-pin primer 
for letter-quality printouts. I currently use a 
serial/parallel convener with my printer. 

I have checked with several different 
Radio Shack stores and printer outlets for 
this information. So far I have found no one 
who can be certain what printer will do Ihe 



job. I would really appreciate any informa- 
tion vou can furnish. 

Robert Walls 

110 Ellis Lane 

Fatlhrook, CA 92028 

While you might get lucky and find an 
older unit in a Radio Shack back room, 
Tandy no longer produces printers that 
support Tandy printer codes. All newer 
Tandy printers support only IBMlEpson 
codes. The DMP-130 supports both Tandy 
and IBM/Epson modes. If you are currently 
using your DMP-130 in the IBM mode, you 
shouldn't huve much problem replacing it 
with any dot-matrix printer currently on the 
market. However, if you liave configured 
your software for Tandy DMP-130 codes, 
you'll have to reconfigure the software when 
you replace the printer. We know of no 
printers currently available that support the 
older (now obsolete?} Tandy codes. 

MVBanner Review Correction 

Editor: 

I would like lo point oui an error in the 
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producl review of MVBanner (April 1992, 
Page 7). The review indicates thai the 
Roman font docs not support numbers and/ 
or special characiers. After talking with 
Zack Sessions of ColorSystems, I learned 
an older version of MVBanner was acci- 
dentally submitted for review. The mistake 
was found and a correct version was sub- 
mitted. Unfortunately, the reviewer did not 
see that the Roman font in the new version 
does support the entire ASCII character set. 
If anyone has purchased MVBanner and 
finds it has an incomplete Roman font. 
please notify ColorSystems to receive a 
free replacement. 

Bruce Geren 

346 E. Papago Drive 

Tempe, AZ 85281 

Computing from a Distance 

Editor: 

I currently subscribe to THE RAINBOW, 
and I have a CoCo 3 with 128K. What kind 
of disk drive can I use with my computer? 
Also, what kind of printer is compatible 
with it? Is there aTandy showroom in Saudi 
Arabia? 

Muhammcd Younas Khan 

P.O. Box 50 

Zuifi City 11932 

Kingdom of Saudi Arabia 

The Color Computer can be used with 
just about any disk drive, though you must 
have a disk controller that supports the 
drive you want to use. Unfortunately drive 
controllers for the CoCo have become 
mighty scarce. Most any printer can be 
used with the Color Computer. Several 
RAINBOW advertisers offer disk-drive sys- 
tems and printers for the CoCo — contact 
these companies for specific information. 
We called Tandy Corporation in Fort Worth 
and were told there is an outlet in Ilofuf. 

It's in There! 

Editor: 

When I bought a 512K CoCo 3 from 
Microcom, included was a Performance 
Peripherals Memory Test program (on disk) 
that delects no memory errors in the 512K 
machine. However, when I first turn on the 
computer and enter PRINT MEM. the screen 
indicates the available memory is only 
22.824. That is less than the 24.872 start-up 
memory a straight 1 28K CoCo 3 has and far 
less than 5 1 2K . The Microcom representa- 
tive I consulted about this strange situation 
could not give me a reason for it but said 
their own 512K CoCo 3 does the same 
thing. Can you tell me why the computer 
gives this misleading information; and is 
there a way I can find out the current memory 
available, if 1 need to. when I am using the 
computer? 

Frank Price. Jr. 

1420 Pilot Drive 

Cookeville, TN 38501 

Your CoCo 3 is normal. The 68B09E 
microprocessor used in the Color Com- 
puter 3 provides a 16-bit address bits, which 
means the chip can have only 64K in its 
address space at any point in time. The 
CoCo 3 uses some fancy memory-mapping 
techniques to gain access to larger amounts 
of memory. 

When you turn the computer on . much of 
the upper 32K of the mapped 64K space is 
reserved for the BASIC interpreter. In addi- 
tion, several blocks in the lower half are 
allocated for tasks other than BASIC pro- 
grams. The end result is that you get 22.824 
bytes of free memory from a disk-based 
CoCo. (Try plugging the disk controller 
into that I28K machine and you II gel only 
22 .824 bytes free — the disk controller eats 
about 2K.) Programmers can take advan- 



tage of the full memory complement using 
"bank- switching" techniques, but BASIC 
itself does not internally support any way to 
gain more than about 32 K for programs. 
PRINT MEM reports only the memory avail- 
able for BASIC programs. 

Multicolumn Directories Revisited 
Editor: 

The April 1992 issue of THE rainbow 
includes an article on multicolumn directo- 
ries (Page 10). It may be of interest to you 
and others that there are three other "one- 
liner" commands for performing similar 
functions. The command line 

WIDTH 40:P0KE &HFE04 ,20:0IR 

generates a two-column directory of the 
disk in the default drive on a 40-column 
screen. Use a valid drive number (0 through 
3) after DIR to get director)* listings for 
other drives. Always press CLEAR after 
using this command and before any other 
two-column listings or screen printing. Use 
the WIDTH command to return the screen to 
normal operation. 

The second one-liner command simi- 
larlv generates a two-column director) list- 
ing on an 80-column screen: 

WIDTH 80:P0KE &HFE04 .40 : DI R 

The third command line 

WIDTH 80:P0KE «HFE04.20:DIR 

can be used to list a directory in four col- 
umns on an 80-column screen. The second 
and third command lines above do not 
require that you press CLEAR when you 
are finished. 

Cieorge Bethea. Jr. 
I South Lawrence Avenue 
Elmsford. NY 10523-2213 

Ghana Bwana on the CoCo 3? 
Editor: 

I have both a CoCo 2 and a CoCo 3. I 
originally purchased Ghana Bwana for use 
on my CoCo 2 and would like to use it on the 
CoCo 3 if possible. Is there a patch to make 
Ghana Bwana work on the CoCo 3? 

Jim Ferrett 

1806 Jefferson Street 

S. Greensburg. PA 15601 

You're in luck! Such a patch, written by 
Steve Bjork. appears in the form of a basic 
program listing on Page 74 of the May 1 991 
issue of THE RAINBOW. This patch is also 
available for downloading from the CoCo 
SIG on Delphi. 

CoCo 3 with a CoCo 2 Drive? 
Editor: 

I recently bought a Color Computer 3 
with a disk drive. The problem is that the 
disk drive is not reading disks at all. I was 
told by Radio Shack that this drive is for a 
CoCo 2. Why won't this drive work on any 
CoCo, and where can I buy the right disk 
drive? 

Celso Caballero 

1064 N. 125th Apt. A 

Layton.UT 84040 

There is no distinction between a CoCo 
2 drive and a CoCo 3 drive. Any Radio 
Shack disk drive system that will work with 
the CoCo 2 will also work with the CoCo 3. 
(However, older CoCo I disk controllers 
require 12 volts, which isn't supplied by 
either the CoCo 2 or CoCo 3.) Assuming 
your CoCo 3 wasn ' t in the high-speed mode 
when you saved the programs and files your 
system can't read (the high-speed mode 
often garbles data, making it unreadable). 



we would suspect a physical problem in the 
drive or disk controller. 

CoCo Club Linkup 

Editor: 

Recently I had occasion to write to all 
the CoCo Clubs listed in THE rainbow. 1 
received two letters that were undeliver- 
able. I would appreciate a letter from any 
members of the Tucson Color Computer 
Club or the Marysville Club. 

David Graham 
P.O. Box 10552 
Enid, OK 73706 

Artifact Color and the CM-8 
Editor: 

I recently purchased a CM-8 monitor 
and find I am unable to see color when 
running Mickey' s Space Adventure, Donald 
Duck's Playground or Winnie The Pooh. 
These programs are trademarked by Sierra 
On-line. 

1 wrote a letter to Sierra a couple of 
months ago to see if there is any way I can 
run the programs in color on this monitor, 
hut I have not yet received a reply. I decided 
that perhaps the readers of the rainbow 
could help in some way. If any of you know 
of patches for these programs (and where 
they are available), 1 would appreciate 
hearing from you. 

I like the new concept created for the 
magazine. It is not as easy to store as previ- 
ous issues, but at least we are still upper- 
most in the minds of the rainbow staff. 
That is more than I can say about some of 
the other vendors, who quickly turned their 
hacks on us. Because of the lack of support 
shown by them, we need you more now 
than wc ever did. Keep up the good work. 
Cliff De Boer 
1435 Ohio Street 
Racine, Wl 53405 



Double-Sided Woes 

Editor: 

I have been a rainbow reader for about 
four years and would be lost without it. I 
enjoy the rainbow very much. 

I have a CoCo 3 with an FD-502 double- 
sided disk-drive system. My problem is that 
I cannot seem to configure a 40-track sys- 
tem disk under OS-9 Level II. I have fol- 
lowed the directions (the rainbow, De- 
cember 1988, Page 186) without success. 

The first disk boots fine with 35 tracks, 
and I can format a disk with 40 tracks. I then 
use cobbler to put the OS-9 boot on the 
second disk and use dsave /d0 /dl t 
shel 1 to install the rest of the directories 
and files. But the disk won't boot. Can you 
help? Do I have to have 512K to make it 
work? 

Clifford Ernst 

Route 1. Box 84 

Audubon. MN 565 II 

See "OS-9 Hotline" on Page 17 of this 
issue for information about creating 
bootable double-sided. 40-track systems 
disks with OS-9 Level U. 

THE RAINBOW welcomes letters to the 
editor. Mail should be addressed to: Letters 
to Rainbow. The I ; alsoft Building, 9509 
U.S. Hwy 42, P.O. Box 385, Prospect, KY 
40059. Letters should include the writer's 
full name and address. Letters may be ed- 
ited for clarity or to conserve space. 

Letters to the editor may also be sent to 
us through our Delphi CoCo SIG. From the 
CoCo SIG> prompt, enter RA I to get to the 
Rainbow Magazine Services area of the 
SIG. At the RAINBOW> prompt, enter 
LET to reach the LETTERS> prompt, then 
select Letters for Publication. Be sure to in- 
clude your complete name and address. 
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Feature Program 



Base Conversions Simplified 



Most computer users and program- 
mers al some point find it necessary 
to convert values from one number system 
to another. The problem is that converting 
between number systems often involves 
some unwieldy (albeit simple) calculations. 

When the programmers at Microsoft 
wrote BASIC for the Color Computer, they 
included a couple of features that make 
conversions between decimal (base 10) and 
Hex (base 16) values fairly easily. To con- 
vert a decimal value to Hex. you can enter 
?HEX$(x*xv), where xtcv is the decimal 
representation for the number. (The ? 
symbol is shorthand for PR I NT in the CoCo's 
BASIC.) To get from Hex to decimal, you 
can enter l&Hyyyy, where yyyy is the hexa- 
decimal number you want to convert. 

Unfortunately, however. Microsoft did 
not include support for binary (base 2) 
numbers, and the HEX* function can't handle 
numbers larger than SFFFF (decimal 
65535). This poses a problem for CoCo 3 
owners, whose computers have more than 
64K of memory. I wrote Convert to over- 
come these limitations. 

Convert is a simple CoCo 3 utility de- 
signed to convert values between decimal, 
hexadecimal and binary. Since it uses SO 
columns, you'll need a monochrome or 
RGB monitor to sec the text onscreen. When 
you run the program, you'll see the message 
PRESS ENTER TO ACTIVATE blinking near 
the middle of the screen. Above this are the 
words Hexadecimal. Decimal and Binary, 
and an arrow points to Hexadecimal. Use 



the right and left arrow keys to move the 
arrow so it points to the name of the number 
system from which you want to convert (the 
input base), then press ENTER. 

When you have selected an input base, 
the cursor moves to the input box at the 
lower-left portion of the screen. The limits 
for the input base you have selected are also 
displayed in the box. Simply enter the 
number you want to convert. About a sec- 
ond later, you'll hear a beep and the number 
is displayed in all three bases on the lower- 
right portion of the screen. 

After the results arc displayed, the origi- 
nal value disappears from the input box and 
the cursor returns. If you want to continue 
converting numbers from the selected sys- 
tem, simply enter another number. To 
change to another input base, press ENTER 
by itself and the cursor is returned to the top 
part of the screen. To exit from Convert, 
hold SHIR and press BREAK. 

All three input bases are selective, which 
means the program will not accept values 
that do not fit the selected base. In other 
words, the decimal input base won't allow 
you to enter a value that contains any alpha- 
betic (usually implying Hex) characters. 

The input range for the decimal base is 
through 1048575. The Hex input range is 
limited to values between $00000 and 
SFFFFF, and the binary converter accepts 
values from through 1111 1 11 1 1111 
1111 1111. Leading zeros are not needed 
for any input base. When entering binary 
values, you can use periods anywhere in the 



number. However, Convert does not per- 
form fractional conversions — the frac- 
tional portion of, say, 123.52 is truncated 
before the conversion. 

The strange character that looks like a 
rooftop ( A ) in some of the program lines is 
called a caret. It is used by many computers 
to indicate the mathematical operation of 
raising a number to a power (e.g., 3 A 2 is the 
same as 3 2 , which is 9). You can generate 
this character from the CoCo keyboard by 
pressing the up arrow. 



George Quellhorst has owned and used 
Color Computers since their introduction, 
and he especially enjoys writing programs 
for his CoCo 3. George may be contacted at 
203B Meadows Drive, Painesvi/le, OH 
44077-5361, (216) 354-3812. Please in- 
clude an SASE when requesting a reply. 
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The Listing: CONVERT 

1 'BASE CONVERTER 

2 'Br GEORGE QUELLHORST 

3 'COPYRIGHT (C) 1992 

4 'BY FALS0FT. INC. 

5 'RAINBOW MAGAZINE 

10 ' CONVERSIONS. By: George Oue 

llhorst. Latest update: 12/06/19 

90 

20 POKE65497..:RGB:CLEAR2000:PAL 



Feature Program 



What's in Disk File? 



File Peeker is a simple utility program 
that allows you to examine the con- 
tents of disk files using a CoCo 3. Since the 
program displays the characters in the file 
in Hex and ASCII forms (where possible), 
it is useful for comparing files and learning 
about how programs arc stored on disk. A 
simpler (yet no less important) application 
of File Pecker is for discovering what's in 
a tile when you arc organizing your disks. 

To get started, enter the program as 
shown, save it to disk, then run it. When 
prompted, enter the name of a file (on the 
disk in the default drive — usually Drive 0) 
you want to view (use the eight-character 
filename followed by a period and the three- 
character extension). Once you press 
ENTER, File Pecker goes to work. On the 
left side of the screen are the hexadecimal 
representations for the charcters (bytes) in 
the file; the ASCII forms of the characters 
are shown on the right side of the screen. If 
a byte in the file is less than 32 (decimal) or 
greater than 127. a period is shown in the 
ASCII representation. 

To peck at a file on a different drive, put 
:d (where d is the drive number — 0, 1 . 2 or 
3) after the filename extension and enclose 
the whole entry in quotes. For example, to 
look at a file called JUNKTEXT.DAT stored on 
a disk in Drive I, you would enter 
-JUNKTEXT.DAT: l". Be careful when en- 
tering filenames; if you specify a file that 
doesn't exist. Disk BASIC will create an 
empty file with the entered name. 



Ifyou have some experience with basic, 
you might want lo modify the program to 
allow optional printing on paper. Another 
possible enhancement is to allow some form 
of "paging" through the file — as written. 
File Peeker scrolls through the entire file 
without pausing — instead of using SHIFT- 
@ to pause the display. The variables used 
in the program are shown in Kigure I. 

File Peeker is a handy pro- 
gram, whether you want lo com- 
pare files or organize your disks. 



It should be a useful addition to your CoCo 
toolbox. 



Geoff Friesen has a bachelor of science 
degree in computer science and mathemat- 
ics. He is the author of several published 
articles about computers. He may be con- 
tacted at General Delivery. Dauphin. MB 
R7N 2T3. Canada, (204) 
638-7302. Please in- 
clude an SASE when 
requesting a reply. 
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The Listing: FILEPEEK 

1 'FILE PEEKER 

2 'BY GEOFF FRIESEN 

3 'COPYRIGHT (C) 1992 

4 'BY FALSOFT. INC. 

5 'RAIN80W MAGAZINE 

100 'FPEEK (FILE PEEKER) 
110 ' 

120 ON BRK GOTO 400 
130 S-l 

140 BFJ-" " 

150 WIDTH 40 

160 PRINT " FPEEK (FILE PEEKER) 

170 PRINT 

180 INPUT " FILE NAME": FS 

190 PRINT 

200 OPEN "O".01.FJ.l 

210 FIELD #1.1 AS AS 

220 FOR 1-1 TO I0F(1) 



230 GET tfl 

240 IF AS<" " THEN 270 

2S0 IF A$>CHRJ(127) THEN 2/0 

260 MIDt(BF$.S.l)-A$ 

270 Bl-"0"-tH£X»(ASC(AS)) 

280 PRINT " "♦RIGHTS(BJ.2); 

290 S-S+l: IF S<>9 THEN 330 

300 PRINT " "+8r$ 

310 S-l 

320 BF$-" " 

330 NEXT I 

340 IF S-l THEN 400 

350 FOR 1-1 TO 9-S 

360 PRINT " "; 

370 NEXI I 

380 PRINT " ": 

390 PRINT MI0$(BFJ.1.S-1) 

400 UNLOAD 



ETTE0.S6:PALETTE2.63:PALETTE3.8: 

PALETTES. 8: PALETTE9. 32 :WIDTH80:C 

LS1:POKE140.180:EXEC43350:S$-CHR 

S(252):P0KE63372.65:P0KE65434.56 

:POKESHF80F.0:POKESHF84F.0: POKES 

HF89C.0:POKE41698.255:ONBRKGOTO5 

50 

30 LOCATE3.1:ATTR0.0:PRINT"C N 

VERSIONS - BY: GEORGE 
OUELLHORST - CONVERSIO 

N S";:L0CATE3.2:PRINTSTRINGS(73 
.45) 

40 LOCATE10.4:ATTR1.0:PRINT"UP/A 
RR0W POINTS TO INPUT BASE IN EFF 
ECT AFTER PRESSING ENTER" :: L0CAT 
E6.6:PRINT"H EXAOECIMAL 
":L0CATE38.6:PRINT"0 E C I M A L 
":L0CATE63.6:PRINT"B I N A R Y" 
50 LOCATE3.12:ATTR1.0:PRINT"PRES 
S ENTER ONLY TO SWITCH INPUT BAS 
E" ; : LOCATE55 . 12 : PRINT"RETURN VAL 
UES:"::X(1)-15:X(2)-43:X(3)-67:Y 

-7:L0CATE15,Y:ATTR3.3:PRINT 

::ATTR0.0:P-1 

60 L0CATE42.14:PRINT"DECIHAL.... 

:": :L0CATE42.17:PR1NT"BINARY 

,:"::LOCATE42.20:PRINT"HEXAOECIM 

AL:"::L0CATE3.22:PR1NTSTRING*(73 

.45)::LOCATE25.23:ATTR1.0:PRINT" 

PRESS SHIFT / BREAK TO ESCAPE": 

70 LOCATE13.9:ATTR0.0:PRINT"USE 

LEFT AND RIGHT ARROWS TO CHOOSE 

DESIRED INPUT BASE" : : F0RT-12T021 

: LOCATE40 . T : PRI NTS« : : NEXTT : L0CAT 

E3.11:PR1NTSTRING«(73.45): 

80 ' Input mode select. 

90 LOCATE28.10:ATTR1.1.B:GOSUB54 

e 

100 P»-INKEY»:IFPJ-""THEN100 

110 IFPEEK(344)-247THENEXEC:P-P+ 

1:IFP>3THENP-1 

120 IFPEEK(343)-247THENEX£C:P-P- 

l;lFP<lTHENP-3 

130 F0RT-1T03:L0CATEX(T),Y:ATTR2 

.0: PRINT" "::NEXT:L0CATEX(P).Y: 

ATTR3.3:PRINT" ""::ATTR1.0 

140 IFPS-CHR*U3)THENEXEC: LOCATE 

X(P).Y:ATTR3.3:PRINT :: LOCATE 

28.10:ATTR0.0:GOSUB540:GOTO150EL 
SE100 

150 ON P G0SUB 190.240.280 
160 IFP-1THENGOSU8430:D-A:GOSUB4 
50:GOTO170ELSEIFP-2THENA-D:GOSUB 
400:GOSUB450:GOTO170ELSEIFP-3THE 
NGOSUB350 : A-D : GOSU8400 
170 GOSUB520:GOSUB530:GOTO150 
180 ' Hexidecimal Input routine. 
190 L0CATE5.15:PRINT"PLEASE INPU 
T HEXADECIMAL NUMBER" :: L0CATE4. 1 
7:PRINT"MAXIMUM FFFFF - DO NOT I 
NCLUDE SH": 

200 LOCATE40,19:PRINTSS;:LOCATE1 
7.19:LINEINPUTHJ:EXEC:LOCATE40.1 
9:PRINTS»::IFH$-""THEN510ELSE1FL 
EN(H$)>5THENGOSUB530:LOCATE17.19 
:PRINT" ":GOTO200 
210 F0RT-lT0LEN(Ht):ZS-MID$(H*.T 
.1):N-INSTR(1."1234567890ABCDEF" 
.Z$ ) : I FN-0THENGOSUB530 : L0CATE17 . 
19:PR1NT" ":GOTO200ELSENEXTT 
220 HES-HS:HS-"SH"+H$: RETURN 
230 ' Decimal input routine. 
240 L0CATE6.15:PRINT"PLEASE INPU 
T DECIMAL NUMBER";:L0CATE12.17:P 
R1NT"MAXIMUM 1048575": 
250 LOCATE40.19:PRINTSt;:LOCATEl 
7 . 19 : L I NE I NPUTDJ : EXEC : LOCATE40 . 1 
9:PRINTSJ::IFD$-""THEN510ELSE D- 
VAL(D$):IFD>1048575THENGOSUB530: 
LOCATE17.19:PRINT" ":GOTO250 
260 RETURN 

270 ' Binary input routine. 
280 L0CAIF7.14:PRINT"PLEASE INPU 
T BINARY NUMBER": : L0CATE2 . 15: PRI 
NT"PERIO0S AND LEADING ZEROS NOT 
NEEDED" : : L0CATE4 . 17 : PRI NV'l 1 1 1 . 
1111.1111.1111.1111 MAXIMUM"; 
290 LOCATE40.19:PRINTS$;:LOCATE9 
.19:LINEINPUTB»:EXEC:LOCATE40.19 
:PRINTSS::IFBJ-""THEN510ELSEIFLE 
N(A1)>24THENGOSUB530:LOCATE9.19: 
PRINT" ":GOTD290 
300 FORT-1TOLEN(8S):AJ-MIO»(8».T 
.l):IIA»-"8" 0RAS-"1" 0RA$-"."TH 
FNNFXTT ELSEGOSUB530:LOCATE9.19: 
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PRINT" ":GOTO290 

310 N-INSTR(1.B$."."):IFN-0THEN3 

20ELSEB»-LEFT$(BS.N-1)+RIGHTS(B* 

,LEN(Bt)-N):GOTO310 

320 IFLEN(B«)>20THENGOSUB530:LOC 

ATE9.19:PRINT" ":GOTO290 

330 BS-STRINGS(20LEN<B»>."0">+B 

»:RETURN 

340 ' Binary to Decimal. 

350 D-0:FORT-20TO1STEP-1:A-VAL(M 

IDt(B$.21-T.l)):D-D+AMNT<2"(T-l 

)):NEXT 

360 AJ-"":N-1NSTR(1.BS."1")-1:B» 

-RIGHTJ(BS,LEN(B»)-N) 



370 IFINT(L£N<B$>/4)<>LEN(B$)/4 

THENBJ-"0"+Bt:GOTO370 

380 F0RT-1T0LEN(BJ)STEP4:A$-AJ*M 

I0*(B*.T.4)+".":NEXT:B*-LEFT$(A$ 

.LEN(AJ)-1):RETURN 

390 ' Decimal to Hexidecimal . 

400 K-INT(D/256):V-D-(256*K):J$- 

HEXJ<K):IFV-0THENL$-"00"ELSELI-H 

EXt(V) 

410 HES-JS+LS: RETURN 

420 ' Hexidecimal to Decimal. In 

put SHHJ / Output A 

430 A-VAL(HJ):RETURN 

440 ' Decimal to Binary. 



450 IFD>65535THENL-19ELSEIFD>409 

5THENL-15ELSEIFD>255THENL-11ELSE 

IFDM5THENL-7ELSEL-3 

460 A$-"":BS-"":F0RT-L TO STEP 

-1:B-INT(D/INT(2"T>) 

470 IFB->1 THENA*-A»*"1":D-D-INT 

(2"T) ELSEAS-AW0" 

480 NEXTT:L-LEN(A$) 

490 F0RT-1T0 I STEP4:B»-BJ»MIDH 

AS.T. 4 )+".": NEXT : BJ-LEFTJ(B$ . LEN 

(BJ)-1):RETURN 

500 ' Miscellaneous gosubs. 

510 ZS-STRING»( 36. 32): LOCATE 1.14 

:PRINTZJ::L0CATE1.15:PRINTZ»;:L0 



CATE1 . 17 : PRI NTZJ ; : L0CATE54 . 14 : PR 

INT" ":LOCATE54.17:PRINT" ":LOCA 

TE54.20:PRINT" ":GOTO90 

520 L0CATE4.19:PR1NT" ":LOCATE40 

,19:PRINTSS::LOCATE54.14:PRINTA: 

LOCATE55.17:PRINTBS:LOCATE55.20: 

PRINTHESrRETURN 

530 POKE140.180:FORZ-1TO25:EXEC: 

NEXTZ:RETURN 

540 PRINT" PRESS ENTER TO ACTIVA 

TE";:RETURN 

550 CLS1:P0KE41S98.3:P0KE63372.1 

1:POKE6S496.0:ATTR0.0:STOP 



Feature Program 



Intersection: A Leisurely CoCo Game 



Have you been feeling "under ihc gun" 
lately? Tired of playing games where 
all your actions are limed? Well, here's 
Intersection, a game where you don't have 
to race against a clock; all you have to do is 
think a little. In fact, taking your time may 
actually increase your score with Intersec- 
tion. 

The goal of this game is 
to find the intersection 
of two lines. Two 
^^ ^^^ shon segments 
^^^P^^^^^^^ two 

^m ^L vA n n 

^M I these seg- 

^^L^^^ ^m mentsinyour 

^^k^ ^^k mind, you 

^^^^^^— --^ yfj locate 

^5^ ^^^^^r the location 

[) onscreen 

^^^ where the lines 

meet. Although it may sound 

easy, finding the right spot can be harder 

than you might think. 

Intersection works on any CoCo with at 
least 1 6K and Extended basic, and requires 
a joystick. Enter the listing as shown and 
save it to tape or disk. When entering the 
listing, CoCo 3 users must replace lines 
1220 and 1580 as follows: 

1220 IF BUTT0N(0)-0 THEN 1220 
1580 IF BUTTON(0)-1 THEN 1640 

While the program is running, the 
right joystick controls a box, or 
cursor, which you can move 
around the rectangular 
playing field. Outside 
the playing field are 
the short segments 
of the two lines 
you must "inter- 
sect;" one 
comes from 
the top of the 
screen and the 
other comes 
from the left. 
Place the 
cursor where 
you think the 
lines will 
meet and press 
the joystick 
button. If you 
find the intersec- 
tion point in the 
first three attempts. 
you score points. You 
receive 50 points if you 
get it on the first attempt; a 
correct second attempt earns you 
25 points, and 10 points are awarded 



if you arc successful on the third try. There 
are ten rounds of play. 

Some notes of interest about the way the 
program works are in order. The title screen 
provides a nice effect by scrolling the word 
INTERSECT onto the screen. To accom- 
plish this, I first have the program display 
graphics pages 2 and 3. Then the program 
sets the computer to PM0DE3, which has 
access to graphics pages I through 4. The 
word INTERSECT is moved downward 
from the bottom of graphic Page 1 to Page 
2, so the word seems to scroll onto the 
screen from somewhere above. 

As for the game itself, graphics pages 1 
and 2 are displayed. The rectangle around 
the playing field, the rectangle around the 
screen, and the two lines to be intersected 
arc kept on pages 3 and 4. Whenever the 
cursor is moved, pages 3 and 4 are copied 
onto pages 1 and 2, and the cursor is re- 
drawn. This way movement is smooth and 
there is no need to worry about erasing the 
cursor from its old position. 

Other parts of the program are best de- 
scribed by explaining key variables. 
Variable contains the graphics for the 
word INTERSECT, which scrolls onto the 
title screen. F I RST has a value of 1 only be- 
fore the first game is played, and is zero at 
all other times. This is to make sure the 
score shows up on the title screen only after 
at least one game has been played. Array SS 
(0-9) contains the DRAW strings for the 



numbers though 9. SI, S2 and S3 are the 
hundreds, tens, and ones digits of SCORE. 
Forexample,ifSC0REequaIs425,thenSlis 
4. S2 is 2 and S3 is 5. The score is broken up 
this way to make using the strings in S$ 
easier. 

HB0X and WB0X control the size of the 
cursor. HDELTAand WDELTA control the size 
of the playing field. The lines that are to be 
intersected have endpoints (0,A) and (B,0). 
They meet at the intersection point given by 
(CX.CY). 

Simple changes you might try include 
modifying the values of HB0X in Line 1270 
and HDELTA in Line 1290. Increasing the 
value in either (or both) of these variables 
makes the game easier. A useful addition to 
the game would be some way to track the 
high score and display it on the title screen. 
If you are really into timed games, try add- 
ing routines so that the score depends on 
how fast the 10 intersections are found. 



(This would probably be easiest using the 
TIMER function.) 

Hopefully you'll enjoy Intersect. A per- 
fect score is 500 points, though you'll need 
to be very lucky and skilled to get this score. 
And remember, using rulers to locate inter- 
sections is not permitted. 
Good luck! 



Joseph Pen- 
deli has a degree 
in electrical en- 
gineering 
from the Uni- 
versity of 
Maryland. In addi- 
tion to programming the 
Color Computer, Joseph enjoys using the 
Macintosh. His hobbies include riding 
skateboards and playing Super Nintendo. 







16K Extended ^ 




The Listing: INTRSECT 




1 "INTERSECTION 


370 GET(0.0)-(256.33).O.G 


2 'B* JOSEPH PENDELL 


380 'START OF TITLE SCREEN R0UTI 


3 'COPYRIGHT (C) 1992 


NE 


4 'BY FALS0FT. INC. 


390 FOR 1-18 TO 48 STEP 2 


5 'RAINBOW MAGAZINE 


400 PUT(0.I)-(255.I+33).O 


10 R-RND( -TIMER) 


410 NEXT I 


20 CLEAR 500 


420 PM0DE 0.3 


30 DIM 0(225) 


430 PCLS 


40 FIRST-1 


440 PM0DE 1.3 


50 PLAY"L255T255" 


450 IF FIRST-1 THEN 750 


60 'TEXT "0" TO "9" 


460 'CREATE BOX TO GO AROUND SCO 


70 SK0)-"U6R4O6L4BR7" 


RE 


80 S*(1)-"R4L2U6G2BD4BR7" 


470 DRAWBM60.109S4C4NH10R128NH1 


90 S$(2)-"NR4U3R4U3L4BR7BD6" 


0D20L128NU20H10U20R128" 


100 SJ(3)-"R4U3NL3U3L4BR7BD6" 


480 PAINT(62.110).2.4 


110 S»(4)-"BU6D3R4U3D6BR3" 


490 PAINT(62.104).2.4 


120 SJ<5)-"R4U3L4U3R48R3BD6" 


500 PA1NT(56.110).2.4 


130 S»<6)-"R4U3L4D3U6R4BR3B06" 


510 'TEXT "SCORE" 


140 St(7)-"BU6R4D6BR3" 


520 DRAWBM70.113C4S8R2HF1L2G1D1 


150 S*(8)-"R4U3L4U3R4D3L4D3BR7" 


F1R2F1D1G1L2NH1BR5" 


160 S$(9)-"R4U3L4U3R4D6BR3" 


530 DRAWBR1R2NE1L2H1U4E1R2F1BU1 


170 PM0DE 3.1 


BR2" 


i 180 PCLS 


540 DRAWBR1R2F1D4G1L2H1U4E1BR5" 


ft 190 PM0DE 1.2 


550 DRAWND6R3F1D1G1L2R1F2D1BR2" 


m zee screen 1.0 


560 DRAW"NR4U3NR3U3R4BR2BD6" 


■ 210 PM0DE 3.1 


570 DRAWBR8C3" 


■ 220 'TEXT "INTERCEPT" 


580 'ISOLATE DIGITS OF SCORE AND 


■ 230 P$-"S7R11L6D14L6R11BR7" 


DISPLAY THEM 


■ 240 P$-P$f"U14M-Hl.-H4U14BR6" 


590 Sl-INTISCORE/100) 


■ 250 PJ-PJ+"R11L6D14BR11" 


600 S2-INT((SCORE-S1*100>/10) 


■ 260 P*-P»+"NR11U7NR7U7R11BR6" 


610 S3-SCORE-S1*100-S2*10 


■ 270 P$-P»'"ND14R8F3D2G3L8R6F5D2B 

f R6" 

f 280 PJ-PS*"BU2F2R7E2U4H2L7H2U3E2 


620 DRAW"XSt(Sl):XS*(S2);XSJ(S3) 


630 PC0PY 4 TO 3 


R7F2BU2BR6" 


640 IF SCORE<500 THEN 750 


290 PS-PS+"NR11D7NR7D7R118R6" 


650 'SPECIAL EFFECTS FOR GETTING 


300 PS-PS+"BU2BR11G2L7H2U9U2E2R7 


A PERFECT SCORE 


F2BU2BR6" 


660 PM0DE 1.2 


310 PJ-P»+"R11L6D14" 


670 PLAY"V15" 


320 DRAWC3- 


680 FOR 1-1 TO 10 


330 FOR 1-2 TO 6 


690 PLAY"C0EFGAB" 


340 DRAH"BM"*STR$( I )♦" . "♦STRJI I ) 


700 SCREEN 1.1 


+":XP*;" 


710 PLAY"COEFGAB" 


350 NEXT I 


720 SCREEN 1.0 


360 DRAW"C4BM7.7:XP$:" 


730 NEXT I 
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740 PHOOE 1.3 

750 'NORMAL TITLE SCREEN SOUNDS 

760 PLAY-V1" 

770 FOR 1-1 TO 15 

780 PLAVCEGV-t" 

790 NEXT I 

800 FOR 1-1 TO 15 

810 PLAV8DFV-" 

820 NEXT I 

830 DRAWC4S8BM46.173 

840 'TEXT "PRESS" 

850 DRAWU6R3F101G1L2BD3BRS" 

860 DRAWU6R3F1D1G1L2R1F2D1BR2" 

870 DRAWNR4U3NR3U3R4BD6BR2" 

880 DRAWBU1F1R2E1U1H1L2H1U1E1R2 

F1BD5BR2" 

890 0RAWBU1F1R2E1U1H1L2H1U1E1R2 

F1BD5BR2" 

900 0RAW8R4" 

910 'TEXT "JOYSTICK" 

920 DRAW"BUlFlR2ElUbBR2" 

930 DRAWBD1E1R2F1D4G1L2H1U4BU1B 

R6" 

940 DRAW"M+2.+3NrR2.-3D3BR4" 

950 0RAWBU1F1R2E1U1H1L2H1U1E1R2 

F1BU1BR2" 

960 DRAWR4L206BR4" 

970 DRAWR4L2U6L2R4BR2" 

980 DRAW"BR1R2NF1L2G1D4F1R2NE1BR 

3" 

990 DRAWU6D3NE3F3BR2" 

1000 DRAWBR4" 

1010 DRAM"BM40.191" 

1020 'TEXT "BUTTON" 

1030 DRAWU6R3F1D1G1NL2F1D1G1L3B 

R6" 

1040 DRAWBU1NU5F1R2E1U5BD6BR2" 

1050 DRAWBU6R4L2D6BR4" 

1060 DRAH"BU6R4L206BR4" 

1070 DRAH"BU1F1R2E1U4HU2G1D4BD1 

BR6" 

1080 DRAWU6M+5.+7NU6BR2" 



1090 DRAWBR4" 

1100 'TEXT "TO" 

1110 DRAWBU6R4L2D6BR4" 

1120 DRAW"BR1H1U4E1R2F1D4G1L2BR5 

1130 0RAWBR4" 

1140 'TEXT "START" 

1150 DRAWBU1F1R2E1U1H1L2H1U1E1R 

2F1BU1BR2" 

1160 0RAWR4L2D6BR4" 

1170 DRAWU4E2F201NL4D3BR3" 

1180 DRAWU6R3F1D1G1L2R1F2D1BR2" 

1190 DRAWBU6R4L206" 

1200 PCOPY 4 TO 3 

1210 'WAIT UNTIL FIRE BUTTON IS 

PUSHED 

1220 IF PEEK(65280)<>126 AND PEE 

K(65280)<>254 THFN 1220 

1230 FIRST-0: 'DISPLAY SCORE AFTE 

R NEXT GAME 

1240 XOID-1000 

1250 YOLO-1000 

1260 DLAY-10 

1270 HBOX-20 

1280 HB0X-4/3*HB0X 

1290 HDELTA-40 

1300 WOELTA-4/3-HDELTA 

1310 G05UB 2110 

1320 SCORE-0 

1330 TRIES-0 

1340 ROUND-0 

1350 PMODE 1.1 

1360 PCLS 

1370 SCREEN 1.0 

1380 'CREATE GAME SCREEN 

1390 PMODE 1.3 

1400 PCLS 

1410 A-RND(191)-1 

1420 B-RND(256)-1 

1430 CX-RND(255-HOELTA)tMDELTA 

1440 CY-RNDU90-HDELTAHHDELTA 

1450 C0L0R2.1 



1460 LINE(0.A)-(CX,CY).PSET 

1470 LINECB.0)(CX.CY).PSET 

1480 LINE(W0ELTA.HDELTA)-(255.19 

1). PRESET. BF 

1490 COLOR 3,1 

1500 LINE(WDELTA.HDELTA1-(255.19 

D.PSET.B 

1510 LINE(0.0)-(255.191).PSET.B 

1520 PMODE 1.1 

1530 PCOPY 3 TO 1 

1540 PCOPY 4 TO 2 

1550 COLOR 4.1 

1560 LINE(JX.JY)-{JX-HBOX.JY*HBO 

Xl.PSET.B 

1570 GOSUB 2110 

1580 IF PEEK(65280)-126 OR PEEK! 

652801-264 THEN 1640 

1590 IF XOLO-JX AND YOLD-JY THEN 

1570 
1600 'JOYSTICK POSITION CHANGED. 

NEED TO UPOATE 
1610 XOLD-JX 
1620 YOLO-JY 
1630 GOTO 1530 
1640 'PUSHED BUTTON. CHECK IF AT 

INTERSECTION 
1650 IF CX<JX OR CY<JY OR CX>JX+ 
WBOX OR CY>JY+HBOX THEN 1910 
1660 'GOT IT 
1670 TRIES-TRIES+1 
1680 FOR 1-1 TO TRIES 
1690 SOUND 100.1 
1700 FOR J-l TO DLAY 
1710 NEXT J, I 

1720 IF TRIES-1 THEN SCORE-SCORE 
+50 

1730 IF TRIES-2 THEN SCORE-SCORE 
+25 

1740 IF TRIES-3 THEN SCORE-SCORE 
+10 

1750 ROUND-ROUNO+1 
1760 'SHOW INTERSECTION 



1770 COLOR 4.1 

1780 PCOPY 3 TO 1 

1790 PCOPY 4 TO 2 

1800 LINE(JX.JY)-(JX+WBOX.JY+HBO 

XJ.PSET.B 

1810 COLOR 2.1 

1820 LINE(0.A)-(CX.CY).PSET 

1830 LINE(B.01-(CX.CY).PSET 

1840 FOR 1-1 TO 50 

1850 PRESET(CX.CY) 

1860 PSETICX.CY.2) 

1870 NEXT I 

1880 TRIES-0 

1890 IF ROUND-10 THEN 1990 

1900 GOTO 1380 

1910 'MISSED IT 

1920 TRIES-TRIES+1 

1930 FOR 1-1 TO TRUS 

1940 SOUND 1.1 

1950 FOR J-l TO OLAY 

1960 NEXT J.I 

1970 IF TRIES<3 THEN 1590 

1980 GOTO 1750 

1990 FOR 1-1 TO 1500 

2000 NEXT I 

2010 'GET READY FOR TITLE SCREEN 

2929 PMODE 1.2 

2030 PCLS 

2040 SCREEN 1.0 

2050 PMODE 0.1 

2060 PCLS 

2070 PMODE 0.4 

2080 PCLS 

2090 PMODE 3.1 

2100 GOTO 380 

2110 'FIND OUT WHERE TO PUT CURS 

OR ACCORDING TO JOYSTICK 

2120 JX-JOYSTK(0)/63'(255-UDELTA 

-WBOXl+WDELTA 

2130 JY-JOYSTK(1)/63*(190-HOELTA 

-HBOXl+HDELTA 

2140 RETURN ff^\ 



Product Review 

4D Checkers: 
On the Level 

The idea behind 4D Checkers, a CoCo 
3 game from N*Johnson Software (Nick 
Johnson), is a very good one. Imagine a 
slack of ihree 3-by-3 grids with nine black 
and nine red checkers distributed among 
the levels. Now add a wildcard "transport 
square" for a little spice. What you're 
probably seeing in your head looks some- 
thing like a cross between tic-tac-toe and 
checkers — with hints of pieces "beam- 
ing" across the ether (just remembering 
the chess scenes from old Star Trek epi- 
sodes). 

That's just about the image I had in my 
head when I received 4D Checkers for 
review. After playing for a few minutes, I 
scaled down my expectations. It's not thai 
the game is bad — it isn't. 4D Checkers 
simply fails to live up to its potential. First 
let's talk about the game, then I'd like to 
make some suggestions to Mr. Johnson, 
because I really like his concept. 



41) Checkers plays like traditional 
checkers in the sense that it requires two 
players, and the checkers move one space 
al a time and can capture other checkers 
by jumping them to a blank square. After 
a red piece jumps a black piece, for in- 
stance, the black piece is removed from 
the board and the red player receives a 
point. The goal is to get rid of all the other 
player's checkers. There the similarity to 
regular checkers ends. 

In 40 Checkers the board is smaller, 
you can't be kinged, and pieces can move 
(and jump) in any direction — vertical, 
horizontal or diagonal — while traditional 
checkers are limited to diagonal move- 
ment. Then of course there's 4D Check- 
ers' most interesting feature, which tradi- 
tional checkers lacks: the flashing yellow 
transport square. 

After you move a piece onto the trans- 
port square, it mystically reappears some- 
where else; relocation on any of the three 
levels is possible. If your transporting 
checker lands on a piece belonging to the 
other side, the opponent's piece disap- 
pears and you gain a point. If you land on 
one of your own checkers, you lose lhal 
piece and also the point. If you land on a 



blank square, no points are gained or lost. 
Be careful when transporting: blind chance 
may place you in a position to make a 
jump, or it may transport you into peril. In 
the most difficult level of play, the trans- 
port square is invisible, which makes for 
some surprising moves. 




A coordinate system is used to tell the 
computer how to move — three numbers 
for level, column and row-. You type the 
coordinates of the piece to be moved, ihen 
type the coordinates of the destination 
square. If you mess up. you can't back- 
space to correct your mistake bul must 
press the CLEAR key to start over. If you 
have a Speech/Sound Cartridge, you can 
hear the computer tell you when you arc 



trying to make an illegal move. The SS/C 
routine also announces whose turn it is, 
when time is up and who won the game. 

Now for the suggestions. Mr. Johnson, 
most people who play board-type games on 
their computers don't bring along a friend (I 
had to find someone to sit at my cramped 
computer desk in order to help me review 
ihis). I would like lo see a one-player mode 
in which the player could take on the com- 
puter. [Editor's Note: Mr. Johnson has 
informed us a version supporting a one- 
player mode is near completion. | Also, the 
image of the three boards, which now takes 
up just the upper-left comer of the screen, 
would look better if expanded to fill most of 
the screen. Finally, the red and black pieces 
are just about impossible to distinguish on 
the old monochrome monitor I hooked up 
(though the colors show up fine on my 
RGB). 

Your game is all right as is, Mr. Johnson 
— no bugs could I find — but I think it 
could be much better. (N*Johnson Soft- 
ware. 5830A Reinke Drive, Crestview. FL 
32536. (904) 682-2907: $14.95.) 



— Margaret Gividen 



EzGenvl.09: 

5 mins 40 sees. 



VS. 



STILL USING OS9 GEN, COBBLER OR 

CONFIG? 

Now - create Boot Disks in much less time! 

KwikGenvl.01: 

44 SECONDS! 

Identical operations on Idlntical fragmented boot disks - 2 
deletes and 1 insert performed by both miliiies! 

Make multiple boot disks in one 

session 

Edit existing boot tiles in place 

easily 

Load kernel from disk or mem 

and write (o disk 



• Kditing done in memory 

• Load boot from disk or 
memory 

■ Patch modules 

■ Change order of modules In 
seconds 



FASTEST BOOTFILE EDITOR! 



<r 



Send check or money order to: 

GALE FORCE 
ENTERPRISES 

P.O. Box 06036, Sin. F. Vancouver. 
B.C.. C»n»Ja V5.N 51A 

Checks: allow 4-6 weeks for 

deliver)'. Money orders 

processed immediately for 

KWIK delivery! 
Phone: (604) 522-6922 

Introductory Price: 
each $19.95 U.S. 



I ( *S4. 00 shipping and handling) I 



WMEM> vO 

0S9 LII (ONLY) FILE EDITOR/ZAPPER 

• Display updating is instantaneous 

• Configurable environment 

• Dynamic sector stack 

• Work on file or stack 

• Searching functions 

• Allows editing of nibbles or half bytes 

• Kuilt-in help - easy to use 

• Verify command 

• Runs with 128K 

A WESOME FILE EDITOR FOR 
YOUR CoCo III 
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Databases Fixed 



The OS-9 SIG rearrangement is finally 
complete! 

TheOS-9SlG databases are now in their 
final form. The only change left remaining 
is fixing (he keywords in certain databases; 
even that should be finished by the time this 
reaches print. Figure 1 shows the databases 
in their final form. 

Notice that there are two versions of the 
Applications. Telecom and System Mod- 
ules databases: one for the CoCo and other 
6809-bascd machines (6X0°) and another 
for 680x0-based machines (OSK>. The oilier 
databases are shared between 6809 and 
680x0 machines. Next month I'll give a 
quick description of what belongs in each 
database so you'll know where to lw>k 
when trying to Find a file. 



General Information 
Applications (6809) 
Telecom (6809) 
System Modules (6809) 
Games & Graphics 
Music & Sound 
Programmers Den 
OSK Applications 
OSK Telecom 
OSK System Modules 
Tutorials & Education 
Standards 
New Uploads 

Figure 1: New Database Topics 



Editing Online 

Remember last month 1 described host 
echo and how to turn it on and off. Now I'll 
describe EDT (the standard VAX/VMS 
editor) in norma! and full-screen mode. 
EDT on be used in your workspace when 
submitting a file to the dalaba.se. sending 
mail, or sending a forum message. 

Before continuing, I should explain how 
to select your default editor. From any SIG 
prompt, type: 

0S9> set 

PR£FERENCES> editor 

Current Editor Preference: (no pref- 
erence) 

Would you like to change it? (Y/N)y 
Here are your choices: 
OLDfe ts a simple line numbered 
editor. 

FDT ts a more powerful editor with 
optional VTIOO full screen mode. 
If you don't specify a preference. 
EDI win be selected for you if 
needed. 

Enter 0L0IE, EOT. or press RETURN: edt 
Your record has been updated! 

PREFERENCES> A Z 

0S9> 

I selected BDT as my default editor. Re- 
member that I could also have typed SET 
EDITOR at the 0S9> prompt to choose my 
editor. (From most places on Delphi, you 
can combine several commands on one 



line.) The messages above state that EDT is 
the default editor unless you specifically 
chose one. so you may not need to enter 
these commands. To sec your current editor 
setting, enter: 

0S9> /edit 

/EDITOR - EDT 
0S9> 

You can also use this slash command to 
change your editor for the duration of this 
session by typing /EDIT EDT. (You make 
this temporary setting permanent by enter- 
ing the /SAVE command.) As you can sec, 
there is always more than one way to do 
what you need to do. Choose the method 
you find easiest. 

Now let's get back to editing. You have 
selected EDT as your default editor. Now 
what? Well, let 's send a forum message and 
edit it. Let's start at the forum prompt. 
Assuming I've just read Message 54025 
and I want to reply to it. 1 can type: 

F0RUM> file temp.txt 

Filing 5402S 

Message written to new file TEMP.TXT 

Press RETURN to resume "READ 540?5:" 

I just wrote the contents of Message 54035 
into the file named TEMP.TXT in my work- 
space. Why did I do this? I want to include 
pan of the text of the message to which I'm 
replying. 

F0RUM> reply 

To: [PHILSCHERER] 

SubJ: RE: C 

Please enter your message below. 

Control -Z when Complete. /HELP for 

Help. 

/edit 
CE0B3 



We are now in EDT. Notice EDT's prompt: 
*. When you see this prompt. EDT is in line 
mode waiting for you to type a command. 
There are a great many useful commands, 
the most helpful of which is HELP. The 
commands I will cover are: +. -. DELETE, 
INSERT, EXIT, QUIT, TYPE. INCLUDE, SUB- 
STITUTE, and RESEQUENCE — I will cover 
only the simplest ways of using these 
commands. EDT is a very powerful editor 
that, at its most complex level, allows you 
to edit multiple files at once and to cut and 
paste between files (you will probably never 
need such complicated editing while on 
Delphi). 

•include temp.txt 

The entire file TEMP . TX 1 is now included in 
the edit buffer at the current cursor position 
— the beginning of the file since we haven't 
done anything else yet. If there is some text 
in the file, you can use the * and - com- 
mands to step through the text, much like 
Microware's edi t. +5 advances five lines, 
- backs up one line. The ENTER key also 
actslikc the* command, advancinga single 
line at a time. The current line is printed 
after these commands. You rarely want to 
include the entire message to which you are 
replying. If I want only lines one through 
five of a 20-Iinc message. I could type: 

•delete 6:20 

to delete all other lines. Notice that a line 
range is specified using a colon, not a dash. 
Now I'm ready to add my text. First I want 
to quote Phil Scherer's text: 

•insert 0.5 



-lm 4/unnot=> 

I inserted my text starting al Line 0.5. I 
exited insert mode by pressing CTKL-Z. 
EDT allows floating-point line numbers 
larger than 0, and the first line number is 
always one by default. Thus. . 1 m 4 / 
annot-> precedes the first line I included. 
Now I need to remove the quoting and reset 
the left margin: 

•insert 6 
.ImO 

I am still in insert mode and can now enter 
my reply. When I finish. I will press CTRL- 
Z to exit insert mode. If 1 want to examine 
what I've typed, I can enter: 



•type 0:20 

to list the first lines of my message, which 
may be more than 20 lines because of non- 
integer line numbers. If I'm satisfied with 
the message, I can exit EDT and send the 
message by entering EXIT. This drops me 
back into Del phi's editor, where I can press 
CTRL-Z or use the command / E X I T to get 
back to the F0RUM> prompt. If. instead. I 
enter QU IT to quit EDT, I'll exit EDT with- 
out saving any of the changes I made hut 
will still be dropped back into Delphi's 
editor. 

If you get confused by the non-integrul 
line numbers, you can enter RESEQUENCE to 
reorder the line numbers to integers starling 
at one. This is the simplest use of the rese- 
quence command. Type HELP RESEQUENCE 
to find more information. 

Finally, if you need to change part ol the 
text of a line, you can use the SUBSTITUTE 
command. If the current line is 

12 machine **/ 15 MIPS 

(meaningless Indlax of plumettlng 
speed) and a 

and 1 want to correct indlax to index* I 
would type: 

•sub ;indlax;index; 

1 substitution made 

EDT reports it made one substitution. No- 
tice 1 used the semicolon to begin and end 
the initial and final string. Any punctuation 
character will work. Most people use semi- 
colons or slashes, but you must use the 
same character all three times. 

You can also repeat a substitution on 
many lines; add the line range to the end of 
the command. 

•sub ;recieve;receive; 1:99 

Tliis corrects U>e spelling of receive through- 
out a file (if the file's last line is smaller than 
99). The SUBSTITUTE command, wlien given 
a line range, will replace the string more 
than once per line if it is found more than 
once in a line. Without a line range, only the 
first instance is replaced on the current line. 

New Uploads 

Jim Sutemeier (JSlTEMniER) studied 
the abilities of four different file compres- 
sion programs with OS-9/68000: ar, ARC. 
I.HArc, and Zoo. If you arc looking for the 
best compression program, his upload to 
the OS-9 SIG General Information data- 
base will help your search. Phil Scherer 
IPHILSHERER) contributed several issues of 
the OCN (OS-9 Community Network) 
newsletter. The OCN is a relatively new 
organization striving to lie together OS-9 
users into a solid community. 

If you use mroff to formal text, you 



might be interested in Joel Rees' 
(REIisikenkyu) upload, which explains how 
to enable the p (page offset) option. John 
Sender (SEMLER) released a scientific cal- 
culator program thai works with both OS-9/ 
6809 and OS-9/68(XK). Astronomers among 
us will appreciate Jim Martin's (WOAY) 
almanac, which calculates right ascension 
and declination of the Sun. Moon, and 
Meaury through Pluto as well as other 
astronomical information. Robert Kem- 
per (bobkemper) submitted pc I s. which 
sends a formfeed to your printer. 

In the Music & Sound database. Mike 
Knudsen (ragtimer) released a program 
that allows recording (digitizing) and play- 
ing stereo audio on the MM/1; he also 
uploaded a digitized sample. Joel Rees 
uploaded many files to the Programmers 
Den database, including BASIC09 and 
PASC AL09 programs that allow you to use 
include files with BASIC09 and PAS- 
CAL09. He also uploaded a partial list of 
bugs in die Microware C compiler used on 
the CoCo. 

In the CoCo SIG CoCo 3 Graphics 
database. Joe Sannucci (SANNUCC1) 
uploaded a practical joke program (TR I CK); 
try it! He also uploaded updates to Chet 
Simpson's Image Maxler. a sprite creating 
program. Jerry Brown (JRRRY79) released 
a horse handicapping program inio the 
Utilities & Applications database. Joel Rees 
contributed a threaded dialect of FORTH. 
Richard McNabb (RJCKMAC) released a 
number of programs, including one that 
numbers the lines of a file so you can print 
it and another one that helps convert assem- 
bly-language source files so they are legal 
with EDTASM. His Book Utility allows 
you to print on both sides of paper. Robert 
Newhart (BNEWHART) submitted a calcu- 
lator program diat includes interest rates 
and ham radio antennas in addition to other 
features. Jerry Cambpell (6147) uploaded 
a handful of CoCoM AX clipun files into the 
Classic Graphics database. 




\si ki;p' 



OS-9 SIC 



General Information 

68XXX MACHINES ADVERTISEMENT 
EUELMAR Ed Greskk 

G-WINDOWS ANN. FOR SYSTEM IV 
EDELM AR Ed (Brack 

STATS. ON 4 DIFFERENT ARCHIVERS 
JSUTEMEIER Jim Smemeier 

FHL'S NFW OT 68030 ANNOUNCEMENT 
FHOGO Frank Hoof 

OCN NEKS LETTERS THRU JAN. 1992 
I'HIUSCIIERER Phil Scherer 

FIRST ANNUAL LAST C0C0FEST 
DAVEMYERS Dave Mycr> 

Applications <6ii09> 

MROFF PRINT FORMATTER UPDATE: -P 
REI1S1KENKYL Joel Rccs 

SCALC: SCIENTIFIC CALCULATOR 
SEMLER John Scmlct 

GRAND MASTER CHESS 0.9 
MATIIOMPSON Matthew Thompson 

PRINTF0RM 2.1: TEXT FORMATTER 
WOAY Jim Martin 

ALMANAC 
SEMLER John Semlcr 
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FF: FIND FILE 

MEYEOOI Homer Meyer 

PCLS VI. 5 PAGE EJECTOR 
BOBKF.MPER Robert Kemper 

Telecom (6809) 

HEDIT VI. 9 PATCHES 
A1RWOLF2 Aaron Yates 

CRC LIST FOR RIBBS 2.02 
SANDRIDFR Charles Wesl 

Gaines & Graphics 

TARGA-24 PIX TO GIF PIX 
GRAPHICSPUB Bob Monlowski 

VET ANOTHER REVERSI (YAR) 
REIISIKENKYU Joel Rccs 

Music & Sound 

STEELORUM STEREO SOUND SAMPLE 
RAGTIMER Mike Knudsen 

RECPLAY: RECORD/PLAY STEREO SND 
RAOTIMEK Mike Knudsen 

MIXED ASSORTMENT OF UMUSE3 SCORE 
MISIIOO Mike Shook 

Programmers Den 

SORT ALGORITHMS FOR BASIC09 
SA.SDRIDhK Charles Wcsl 

ITALIC/SCRIPT FONT FOR COCO 
REIISIKENKYU JoclKcra 

FILE INCLUSION PROCESSORS 
REnSIKENKYU Joe] Rees 

MORE BUGS FOR MWC 
REIISIKENKYU Joel Rees 

OSK Applications 

SEA ARC VRS. 5.21 FOR OSK 
MIKF.IIAAI.AND Mike Ilaaland 



OSK Telecom 

TERMCAP/TERMSET FILES FOR TC-70 
JSUTEMEIER Jim Sutemeicr 

GAURDIAN: FIX FOR MM/1 /TO PORT 
RANDYKWILSON Randy Wilson 

OSK System Modules 

MM/1 MODULES UPDATE (REVISED) 
MARKGR1FF1TH Mark Griffith 

Tutorials & Education 

GETTING STARTED WITH MV 
EARTHER Shawn Driscoll 

Standards 

OSK GRAPHICS / SOUND PROPOSAL 
DONVAIL Don Vaillancourt 



DRIIJ.MASTER Johnny Williams 

ALTERNATE 32 COLUMN SCREENS 
RJCKMAC Richard McNabb 

ASCII LINE NUMBERER 
R1CKMAC Richard McNabb 

SPLIT MULTIPLE FCB'S 
RICKMAC Richard McNabb 

FILE EXTENSION CHANGER 
RICKMAC Richard McNabb 

32-COLUMN LISTER 



RICKMAC 
BACKUP CHECKER 
RICKMAC 
BOOK UTILITY 
RJCKMAC 



Richard McNabb 



Richard McNabb 



Richard McNabb 







General Information 
CHIFEST.TXT 
DAVEMYERS 



BASE CONVERSION CHART 

RICKMAC Richard McNabb 

CALC.BAS 

BNEWHART Robert Ncwhan 

LOTTOPRO/ARC 

JERRY79 Jerry Brown 



Dave Myers 



Hardware Hacking 

IR REMOTE RECEIVER 



CoCo3 Graphics 

NEW IMAGE MASTER VERSIONS 

SANNUCCI Joe Sannucci 

SAVE COMPRESSED HSCREENS 

RICKMAC Richard McNabb 

TRICK 

SANNUCCI Joe Sannucci 

Utilities & Applications 
HORSE-PRO(OEMO) 

JERRY79 Jerry Brown 
BIF DIALECT OF FORTH VI. 

REIISIKENKYU Joel Rees 

PERIODICAL TABLE OF THE ELEMENTS 



BHAWK1NS 



Bob Hawkins 



Games 

HORSERACE. BAS 

BNFWHART Robert Ncwhan 

OREGON. BAS 

BNEWHART Robert Ncwhan 

TALKING STOCK MARKET 

SANNUCCI Joe Sannucci 



Classic Graphics 
KIDS. MAX D8CE 
6147 



Jerry Campbell 



/FS 




Vltralace: Update and Upgrade 
(May 1992, Page 20): We got a 
little overzealous when editing the 
article and (unfortunalely) changed 
the case of a case-sensitive word. 
The text in Column 3 on Page 20 
indicates you should use Private 
Times as the example title. If you 
do. you'll find the subsequent text 
won't make any sense. The tide of 
the example publication must be 
PRIVATE TIMES. We apologize 
for any confusion this may have 
caused. 



Window Master Desk Accessory 
Pak (Review, June 1992, Page 

13): The telephone number forCer- 
Comp LTD. is incorrectly listed at 
Ihe end of Ihe review. The correel 
number is (702) 452-0632. 



/♦v 



SOLITAIRE CARD GAMES 
D u o De c k : Double Deck Solitaires. 

Play Sly Fox or Windmill - both games of skill. $19.95 

Classic Solitaire: Klondike, Canfield and Pyramid 
on one disk for just $14.95 

La Belle Lucie: A true game of skill. $14.95 

All three play on 128K CoCo3, with joystick and disk. 
SAVE S10.00. BUY ALL THREE FOR $40.00 

gj Deception Path 

Spend time with your family navigating the ever-shifting maze. 
Play competitive or non-competitive. 128K CoCo3 $19.95 



Eversoft Games now sells more than software. Introducing the most 
innovative calling card in America: 

AmeriVox 

America's New Voice in Calling 

Save 50% or more on your present telephone card 

Unlike AT&T, MCI or Sprint, there is NO SURCHARGE with the 
AmeriVox calling card. On a 3 minute call, distance 1 ,000 miles, 
8am-5pm, you save 49%-52% when using the AmeriVox card. 

Build equity in a calling card? 

You bet! No other phone company has anything like it! The more you 
use AmeriVox the lower your rates will be and the more money you'll 

save. No time limits are imposed to qualify for lower rates, and no 
minimums to meet to keep the lower rate. Once you have it. it's yours. 

Call from anywhere to anywhere at anytime in the contiguous forty-eight 

United States. Across the state or across the country you save on every 

call. AmeriVox is good for interstate, intrastate and intralata (where 

permissible) calling. Business or residential use. 

Please write for brochure and pricing information. 



Checks, Money Orders, MasterCard & Visa $2 50 S&H Software 
COD $2.00 extra. WA addresses add 8.2% sales tax. submissions 
.^^^^^^^_^^^^^^^_ invited 

Eversoft Games, Ltd 
P.O. Box 3354 



(206) 653-5263 



30 day money back guarantee Arlington, WA 98223 



'ADVENTURE SURVIVORS! 

This is your newsletter! Only $3 per 

year. Reviews, solutions, and more! 

Call or write for details. 



L.E. Padgett 

24 Perthshire Dr. 

Peachtree City, GA 30269 

(404) 487-8461 



Outstanding OS9 Software! 

For your CoCo or MM I compatible computer! 
We will beat any advertised price! 



Introducing GuiB! 

GuiB Version 2.0. Now your Basic09 
programs can include exquisite three dimensional 
screen objects! This library of advanced routines 
lets you add buttons, scroll bars, mouse support. 
beveled windows, etc. with easy calls (similar to 
the calls you make to Gfx2). Includes a thorough 
programmer's manual explaining the use of each 
function, along with programming techniques. 
Req. CoCo 3 or 100% compatible w/2S6k. disk 
drive, mouse/joystick. OS9 Level 2. Bastc09. & 
Windmt. $29.95 

Sink the Armada Battleship like game 

with beautiful 3D screen objects. Req. CoCo 3 or 
100% compatible w/25oX RGB monitor, disk 
drive, mouse/joystick. OS9 Uvel 2 & Windmt. 
$17.95. 



TV for OS9 Level 2 m Req. CoCo 3 or 
100% compatible w/128k, disk drive. & OS9 
Level 2. $8.95. 

High Finance Req. CoCo 3 or 100% 

compatible w/1 28k, disk drive, mouse/joystick, & 
OS9Uvel2wAVindint. $24.95. 

MV Banner Req CoCo 3 or 100% 

compatible w/256k. OS9 Uvel 2, disk drive. 
MulU-Vue. HO col. monitor. & mouse/joystick. 
$18.95. 

WP Shel Req. CoCo 3 or 100% compatible 
w/2S6k. disk drive. OS9 Level 2, <t Windint. 
$20.95. 

OS9 Calendar Utilities Req. CoCo 3 or 

100% compatible w/I28k, disk drive, & OS9 
Level 2. $14.95. 

DeskTamer Req. CoCo 3 or 100% 

compatible w/512k. disk drive, OS9 Uvel 2. & 
Windmt. Modem req. to use phone dialer. 
S34.95. 

OS9 Budget System m Req. CoCo 3 or 
100% compatible w/2S6k. disk drive, & OS9 
Level 2. $19.95. 



OSK Versions Available! 

OS9 Level 2 Game Pack w Sea Battle, 
Minefield, KnightsBridge, CoCothello. & Dice 
Poker. Beautiful color graphics & mouse 
support! Req. CoCo 3 or 100% compatible 
w/256k, disk drive. & OS9 Level 2. $32.95. 

OSK version req. MMI or 100% compatible 
computer, disk drive. OS9-68000. & 
mouse/joystick $47.95! 

Variations of Solitaire Pyramid, 

Klondike, Spider, Poker, and Canfield. Beautiful 
color graphics & mouse support! Req. CoCo 3 or 
100% compatible w/256k, disk dnve. OS9 JAivel 
2. & mouse/joystick $32.95. 

OSK version req. MMI or 100% compatible 
computer, disk dnve. OS9-68000. <C 
mouse/Joystick $47.95! 

* * * * * 

Send for free catalog! 

* * * * * 



All products carry the Rainbow Certification 
Seal VISA and MasterCard orders accepted. 
Please add S3.S0 (U.S.) or $5.00 (foreign) for 
shipping and handling. Colorado residents 
please add applicable sales tax. Prices subject 
to change without notice. 



MV Systems 

P.O. Box 818 
An-ada, CO 80001-0818 



(303) 420-7777 
The OS9 and Multi-Vue Specialists! 
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Feature Program 



Fast Backups with 128K 



Early on, CoCo users saw 4K jusl 
wouldn't be enough for what they 
wanted lo do. Then technology evolved, the 
market grew, and now many of us have 
CoCo 3's lhat can be taken 10 512K and 
beyond. And there are many programs 
designed for CoCos with this much mem- 
ory. But what about those whose CoCo 3's 
are still at 128K (after all, the upgrade isstill 
pretty costly)? 

Sure, the manual says the CoCo 3 comes 
with 128K. But as most who have looked 
have found out, you can still use only a 
fourth of this for BASIC unless you use a 
third-party package that opens up the extra 
memory. I believe we should use the extra 
memory in the 128K machine to make life 
a little easier. So I wrote Backup, a single- 
drive disk-backup program. 

Backup is very different than Disk 
BASIC'S BACKUP command simply because 
ii is designed to use all of the 128K. The 
result is that you'll have to swap disks only 
three times (for 35 tracks) as opposed to the 
seven or more swaps required by Disk 
BASIC'S BACKUP. In addition. Backup can be 
used to back up 35-, 40- and 80-track disks, 
and you get to watch as the tracks and 
sectors are copied. Best of all. Backup is 
written in machine language for pure speed. 

To create the machine-language version 
of Backup, first enter the BASIC program 
listing presented here and save it to disk. 
While the program does check to make sure 
the data values you enter (there are a lot of 
them) are correct, you'll save time and 
trouble if you are careful when entering the 
data. Once you have a good working copy, 
run the program and it automatically cre- 



ates the machine -language program and 
saves it to disk. 

To use Backup, first make sure your 
CoCo 3 is set to a 32-column screen width 
(the program uses the 40- and 80-column 
screen memory for storage.) If you forget. 
Backup will remind you. Then enter 

LOA0M"BACKUP":EXEC 

to execute the program. Backup defaults to 
35-track format; to change the number of 
tracks you want copied, replace EXEC above 
with 

EXEC 3584. xr 

where xx is the number of tracks. Just 
remember you'll have to make more swaps 
with the larger number of tracks. 

Backup has been of great value to me, 
and I'm sure you '11 find it to be of great help 
to you, too. This program actually makes 
backing up a disk fun to watch! (Hard to 
believe, isn't it?) Perhaps the only draw- 
back is that now you have no more excuses 
for not making those backups you should be 
making. 



Joel Malhew Hegberg has been pro- 
gramming for nine years and enjoys writ- 
ing software for the Color Computer and 
MM/I . Some of his commercial creations 
are available through Sub-Etha Software. 
Joel may be contacted at 936 N. /2th Street, 
DeKalb, IL 60115-2516. (815) 748-6638. 
Please include an SASE when requesting a 
reply. 



Product Review 

War Monger: 
The CoCo 

Battlefield 

War Monger is an exciting, disk- 
based CoCo 3 game that allows you to 
create two armies and have them fight 
against each other. The computer can 
control one, both or neither army, so you 
can play against friends if you like. The 
armies are placed on a realistic battle- 
field map. You can design your own 
terrain or use one of several predesigned 
terrains supplied on the disk. Each of the 
armies is made up of one lo 60 units; 
each of these units has its own unique 
characteristics such as strength, fire- 
power, range and mobility. 

War Monger is menu-driven and pro- 
vides various options that you use to set 
up the game. You can define the various 
attributes for the armies, name weapons, 
and select color palettes as well as vari- 
ous terrain graphics. The terrain graph- 
ics are needed in order to create the map 
of the battlefield 

These various editing functions al- 
low ihe user to design fighting units with 
all sorts of military hardware including 
ships, tanks, artillery, submarines, and 



planes. Even a fleet of spaceships can be 
selected for more futuristic battles. An 
option for men with or without armor 
and horses lels you step back in time to 
experience ancient warfare. An append 
function is provided which allows you lo 
combine features from different games. 
You can carry this to the extreme, if you 
like, and have King Arthur's knights 
fighting men in space ships armed with 
laser cannons. 

Six sample wars are included on the 
disk I mentioned earlier. One of these. 
Flags, is a game that kids might enjoy 
playing; The weapons are water bal- 
loons. Another game. Pacific, is set 
during the period of World War II and 
pits the Japanese against the allies. 

Understanding the various features 
of War Monger requires reading of the 
31 -page instruction booklet. This is a 
complicated game with thousands of 
variations. Although the game is fun to 
play and contains excellent graphics and 
colors, you must understand what you 
are doing. Simply put. War Monger is 
not an arcade shoot-cm-up but a real 
challenge of your warring skill. 

War Monger requires a CoCo 3 and 
either an RGB (recommended) or com- 
posite monitor, and a disk drive. (Sun- 
dog Systems, P.O. Box 766, Manassas, 
VA 22111, 703-330-89X9;$29.95 plus 
$2.50 SIH). 

— Robert Gray 
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The Listing: BACKUP 

1 '128K COCO 3 BACKUP 

2 'Br JOEL NATHEW HEGBERG 

3 'COPYRIGHT (C) 1992 

4 'BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 

120 'CREATEO FOR "THE RAINBOW" 

130 'ON APRIL 20. 1989 BY 

140 'JOEL MATHEW HEGBERG 

150 '936 NORTH TWELFTH STREET 

160 'OE KALB. ILLINOIS 60115 

170 ' 

180 PMODE0.1:PCLEAR4:PHODE4.1:PC 

LS 

190 CLS:PRINT-PLEASE WAIT..." 

200 LC-3584:LT-0:TL-0:RN-340 

210 READ AJ:IFAJ-"**"THEN250 

220 IFLEN(A»)-3THEN320 

230 VL-VAL("JH"+A$):P0KELC.VL:LC 

-LC*1:LT-LT+VL:TL-TL*-VL 

240 G0T021B 

250 READ TT:IFTTOTL THEN PRINT" 

ERROR IN DATA STATEMENTS.": PRINT 

"•**I CAN'T FIND THE ERROR!***": 

END 

260 PRINT"SAVING FILE..." 

270 SAVEM"BACKUP . BIN" . 3584 .4525 . 

3584 

280 PRINT"*J0B COMPLETE*": PRINT 

290 PRINT"T0 RUN. TYPE:" 

300 PRINT"L0ADM ":CHR$(34) : "BACK 

UP" ;CHRJ( 34): PRINT"EXEC": PRINT 

310 END 

320 VL-VAL("SH"tAl):IFLTOVL THE 

N PRINF'DATA ERROR IN LINE tf":RN 

:EN0 

330 LT-0:RN-RN+10:GOTO210 

340 DATA 16.3.5F.23.FF.FF.FF.FF. 

FF.FF.FF.FF.FF.FF.FF.FF.FF.FF.E8 



350 DATA 49. 4E. 53. 45. 52, 54. 20. 53 

. 4F. 55. 52. 43. 45. 20. 44. 49. 53. 4B. 5 

11 

360 DATA 45.54.54,45.20.26.20.50 

.52.45.53.53.D.5B.45.4E.54.45.4B 

9 

370 DATA 52.5O.2E.D.0.49.4E.53.4 

5. 52. 54. 20. 44. 45. 53. 54. 49. 4E. 41. 

4E7 

380 DATA 54.49.4F.4E.20.44.49.53 

. 48. 45. 54. 54. 45. 20. 26. D. 50. 52. 4A 

C 

390 DATA 45. 53. 63. 20. 5B. 45. 4E. 54 

. 45. 52. 50. 2E. 0.0. 42. 41. 44. 20. 53. 

4B6 

400 DATA 4F. 55. 52. 43. 45, 20. 44. 49 

. 53. 48. 45. 54. 54. 45. 2E.D. 0.42. 41. 

4B9 

410 DATA 44. 20. 44. 45. 53. 54. 49. 4E 

.41.54.49.4F.4E.20.44.49.53.4B.4 

Fl 

420 DATA 45. 54. 54. 45. 2E.D. 0.54. 5 

2.41.43.4B.3A.0.53.45.43.54.4F.4 

9A 

430 DATA 52. 3A. 0.54. 48. 49. 53. 20. 

50. 52. 4F. 47. 52. 41. 40. 20, 43. 41. 4A 



440 

.45. 

9 

450 

.30. 

2B 

460 

E.55 

470 

2A.2 

480 

.A0. 

490 

D.A9 

C 

500 

.AD. 

9F 

sin 

.FD. 
F7 



DATA 4E.4E.4F.54.20.42.45.20 
58.45,43.65.54.45.44.D,4F.4B 

DATA 4E. 20. 41. 20. 34. 30. 2F. 38 
20.43.4F.4C.55.4O.4E.20.53.4 

DATA 43.52.45.45.4E.2E.D.0.4 
. 40. 42. 45. 52. 20. 4F. 46. 20. 446 
0ATA 54.52.41.43.4B.53.3A.0. 
A.42.52.46.41.4B.2A.2A.D.41C 
DATA 0.A6.80.10.27.0.7.AD.9F 
2.16.FF.F3.39.AD.9F.A0.0.77F 
DATA 7F.FF.40.CC.0.0.DD.8D.B 
.56. 86. 96. 97. 8C.CC. 0.4. 00. 99 

DATA 8D.34.30.BD.A9.56.35.30 
9F.A0. 0.81. 3. 10. 27. 2. 63. 81. 6 

DATA 0. 10. 26.FF.F0.39.CC. 0.0 
E.4.FD.E.6.FO.E.8.96.E7.10.7 



520 DATA 26.1.9F.B0.A9.28.7F.FF. 

D6.7F.FF.O8.17.2.20.CC.4.0.OD.8E 

4 

530 DATA 88.8E.E.12.17.FF.99.17. 

FF.A4.7F.E.8.17.1.8B.7C.E.5.B6.7 

1C 

540 DATA E. 5. 81. 12. 10. 23. 0.12. 86 

.1.B7.E.5.7C.E.4.B6.E.4.B1.E.451 

550 DATA 3.10.24.0.38.FC.E.4.DD. 

EC.86.2.97.EA.10.9F.EE.17.0.CE.7 

Dl 

560 0ATA BO.D7.5F.96.F0.10.26.0. 

A9.1E.2.C3.1.0.1E.2.7C.E.A.B6.6A 

6 

570 DATA E.A.B1.E.9.10.25.FF.B6, 

B6.E.8.81.4.10.24.0.3.16.FF.A7.6 

0E 

580 DATA CC.4.0.DD.88.8E.E.3B.17 

.FF.2F.17.FF.3A.7F.E.8.17.1.21.6 

6F 

590 DATA 7C.E.7.B6.E.7.81.12.10. 

23.0.12.86.1.B7.E.7.7C.E.6.B6.4C 



600 DATA E.6.B1.E.3.10.24.0.38.F 

C.E.6.DD.EC.86.3.97.EA,10.9F,6D4 

610 DATA EE.17.0.A9.BD.D7.5F.96. 

F0.10.26.0.4D.1E.2.C3.1.0.1E.6AC 

620 DATA 2.7C.E.A.B6.E.A.B1.E.9. 

10.25.FF.B6.B6.E.8.81.4.10.24.59 

B 

630 DATA FF.2F.16.FF.A7.CC.5.BE. 

DD.88.86.78.B7.FF.A0.86.79.B7.AE 

8 

640 0ATA FF.A1.86.7A.FD.FF.A2.86 

.7B.B7.FF.A3.86.7C.B7.FF.A4.39.C 

20 

650 DATA CC.5.A0.DD.88.8E.E.69.1 

7.FE.A6.16.FF.D8.CC.5.A0.DO.88.A 

59 

660 DATA 8E.E.7F.17.FE.98.16.FF. 

CA.34.76.CC.4.C0.OD.88.8E.E.9A.9 

7C 

670 DATA 17.FE.88.F6.E.4.4F.BD.B 

4.F4.BD.BD.O9.30.1F.BO.B9.9C.A0D 

680 DATA 86.20.AD.9F.A0.2.CC.4.E 

0.DD.88.8E.E.A1.17.FE.68.F6.E.96 

7 

690 DATA 5.4F.B0.B4.F4.B0.B0.09. 

30.1F.BO.B9.9C.86.20.AO.9F.A0.9F 

F 

700 DATA 2. 35. 76. 39. 34. 76.CC. 4. D 

0.DD.88.8E.E.9A.17.FE.43.F6.E.82 

7 

710 0ATA 6.4F.BD.B4.F4.BD.BD.09. 

38. IF. 80. B9.9C.8D.B9.58.CC, 4, ABC 

720 DATA F0.DD.88.8E.E.A1.17.FE. 

26 . F6 . E , 7 . 4F , BD . B4 , F4 . BD . 80 . 09 . A 

OF 

730 DATA 30.1F.BD.B9.9C.BO.B9.58 

.35.76.39.8E.6.A0.9F.88.8E.E.809 

740 0ATA A9.17.FE.6.39.10.8E.20. 

0.7F.E.A.B6.E.8.10.27.0.1F.81.4F 

5 

750 DATA 1.10.27.0.2C.81.2.10.27 

.0.39.7C.E.8.86.40.B7.E.9.86.403 

760 0ATA 76.B7.FF.A1.86.77.B7.FF 

.A2.39.7C.E.8.86.40.B7.E.9.86.90 

7 

770 DATA 70.B7.FF.A1.86.71.B7.FF 

.A2.39.7C.E.8.86.40.B7.E.9.86.8F 



'Si.' 

.A2. 

F 

790 

,A2. 

800 

D.9F 

810 

7.FD 

A 

820 

.B9 

831 



0ATA 72.B7.FF.A1.86.73.B7.FF 
39.7C.E.8.86.40.B7.E.9.86.8F 

DATA 74.B7.FF.A1.86.75.B7.FF 
39. 90. A5. 81. 2C. 10. 27. 0.8. 885 
DATA 86.23.B7.E.3.16.FD.C0.9 
.B0.B7.8.F7.E.3.16.FD.C2.8E9 
DATA CC.4.60.DD.88.8E.E.E4.1 
.79.F6.E.3.4F.BD.B4.F4.BD.A1 

DATA BD.D9.30.1F.BD.B9.9C.BD 
68.39.35.6.CC.5.A0.DD.88.90F 
DATA 8E.E,F6.17.F0.59.16.FE. 
.0.0.**. 93262 
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Repeats continued from Page 1 

peared in Dale Puckett's "KISSable OS-9" 
several years ago. funclioned quite well bul 
contained the seeds of disaster. Not too long 
ago I decided to delete all the files in a 
directory, so 1 entered 

d ! rep del $ 

All files in the directory were dutifully 
deleted. The only problem was that I had 
previously set my current data directory to 
the wrong directory. To prevent this from 
happening again. I rewrote Rep so it dis- 



plays each command being executed — 
now you're not blind to what's happening. 
The following example shows how Rep"s 
output might look: 

0S9: d ! rep del % 
del f ilel 
del file2 

del lastfile 

For even greater protection. Rep accepts 
an -ok option. If you enter - ok after rep 
(and just before the command name), the 
program pauses and requests your permis- 



sion to execute the command for each pa- 
rameter it receives. It looks something like 
this: 

0S9: d ! rep -ok del t 
del f ilel? (y/n): y 
del f11e2? (y/n): n 

del lastfile? (y/n): y 

To get Rep up and running on your 
system, enter and assemble the source code 
shown in Listing 1 . If you do not have an 
assembler, use MakeRep. the BASIC09 pro- 
gram shown in Listing 2. MakeRep gener- 



ates the executable rep program and saves 
it in the CMOS directory. (OS-9 Level I users 
need to change all references to /dd to the 
drive where their CMOS directories are lo- 
cated. This is usually /dO.) 

Rep can be a real finger saver when you 
have the need to repeatedly execute a 
command. I hope you'll find it useful. 



Stephen Goldberg is a dentist and the 
author of the L'tilipak Series of OS-9 utili- 
ties. He can be contacted at 695 Plainview 
Road, Bethpage. NY 1 1 714. Please include 
an SASE when requesting a reply. 
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Listing 


1: Rep 


ISI 












******** 


****** 


************** 


********************** 




pul s 


u 


retrieve data pointer 


* 








******** ****** 


************* 


** 


• REP - COPYRIGHT (C) 1989 

* Repetitive execution of OS 


by S.B. GOLDBERG 
-9 commands taking 


* CREATE 


COMMAND PARAMETERS 


standard input path 


getvar 


clra 




* parameter variables from the standard Input. 




ldy 


#100 


maximum variable length 


* 










leax 


buffer, u 


variable buffer 




1fpl 








os9 


1$readln 


read variable 




use 


/dd/defs/os9defs 




bes 


quit 
#1 


branch on error 




endc 








empy 


<ENTER>? 


• 










lbeq 


noerr 


yes. terminate Rep 




mod 


5en.name.prgr 


m+obj ct . reent+1 . entry .ds 1 1 




tfr 


u.x 


command parameter buffer 


* 










ldy 


pramaddr 


command line parameters 


pa rams 


rub 


200 


command parameters 


moveloop 


Ida 


.y+ 


get parameter character 


keypath 


rub 


1 


keyboard input path 




empa 


Ft 


dollar sign? 


cmdname 


rrrh 


2 


command name pointer 




beq 


movevar 


yes. move variable to buffer 


pramaddr 


rnb 


2 


address of parameters 




sta 


.x+ 


no. character to parameter buffer 


headaddr 


rmb 


2 


module header address 




empa 


#»0d 


end of parameters? 


buffer 


rnb 


100 


Input buffer 




beq 


display 


yes. display and execute command 




rirD 


222 


stack 




bra 


moveloop 


no. move next character 




rnb 


722 


Rep parameters 


* 








dslz 


equ 






movevar 


pshs 


y 


save parameter pointer 


* 










leay 


buffer. u 


variable buffer 


name 


fes 


/Rep/ 




varloop 


Idd 


-y+ 


get variable characters 




feb 


3 


edition number 




sta 


,x+ 


move one to parameter buffer 




fee 


/{c)1989 S.8. 


Goldberg/ 




empb 


#$0d 


end of variable? 


« 










Sr-e 


varloop 


no. move another character 


cant 


fee 


/**#* Can't find command: / 




pulS 


y 


retrieve parameter pointer 


■Using 


red 


$07 






bra 


moveloop 


back to parameter move 


cantlen 


MU 


"-cant 




**•***•* 


****** 


**************** 




fee 


/**** Missing 


$/ 


* DISPLAY AND 


EXECUTE COMMAND 


cr 


feb 


S0d 












term 


fes 


"/term" 




errbell 


bsr 


rtngbell 


sound terminal bell 


........ 


****** 


************** 


** 


display 


' jx 


cmdname 


command name pointer 


- ERROR 


MESSAGES 




cmdloop 


bsr 


wri teone 


character to screen 












10,1 


.x+ 


check character 


nodollar 


leax 


<m1ssing.pcr 


nissing "i" message 




empa 


*U20 


end of command name? 




clrb 




clear error flag 




bhi 


cmdloop 


no. print next character 




bra 


errorout 


message to screen and quit 




tfr 


u.x 


command parameters 


cantflnd 


1 fax 


<cant.pcr 


can't find command message 


pramloop 


bsr 


write 


parameter character to screen 




ldy 


Icantlen 


message length 




'dd 


.x* 


parameter characters 




lUst 


write 


message to screen 




LTjb 


«0d 


end of parameters? 




Id' 


enoname 


command name pointer 




tr-? 


pramloop 


no. display next character 


nameloop 


Ida 


.x+ 


command name character 




tst 


keypath 


want pause and prompt? 




empa 


#S20 


end of name? 




bne 


doprompt 


yes. do it 




bhi 


namloop 


no. look some more 




'ea* 


cr.pcr 


no. carriage return 




Ida 


#S0d 


yes. carriage return 




bsr 


write 


go to next 1 ine 




Stfl 


. x 


to end of name 




bra 


fork 


execute command 




1:1. 


cmdname 


command name pointer 


■ 








errorout 


ldy 


1100 


maximum length 


rlngDel t 


leax 


missing. per 


error bell 




Ibsr 


write 


to screen 


wri teone 


ldy 


#1 


one character 


quit 


Ibra 


error 


quit Rep 


write 


Ida 


fl 


standard output path 


*•*•■••» 


****** 


************** 


** 




os9 


llwrltln 


write to screen 


' LINK OR LOAD 


COMMAND MODULE 




be-. 


passerr 


exit with error 


entry 


pshs 


X 


save parameter pointer 


. 


rts 




return 




clr 


keypath 


clear keyboard input path 


doprompt 


leax 


<ok.pcr 


permission prompt 


dolarchk 


Ida 


-x+ 


parameter character 




ldy 


foklen 


length of prompt 




empa 


#S0d 


end of parameters? 




bsr 


write 


prompt to screen 




beq 


nodollar 


yes. message and quit 




Ida 


keypath 


keyboard input path 




empa 


#J 


dollar sign? 




leax 


buffer, u 


key input buffer 




bne 


dolarchk 


no. look some more 




ldy 


#1 


one character 




puis 


X 


parameter pointer 




059 


isread 


get answer to prompt 




Ida 


.x+ 


first parameter character 


passerr 


bCS 


unlink 


exit with error 




empa 


#- 


option? 




leax 


cr.pcr 


carriage return 




bne 


link 


no. get command 




bsr 


write 


go to next line 




Mel 


,x++ 


next parameter characters 




Ida 


buffer 


keyboard input character 




ore 


#S2B 


make both lower case 




ora 


|SZ0 


make lower case 




orb 


f$20 






empa 


#'n 


Is 1t "n"? 




empd 


#S6f6b 


1s 1t ok? 




beq 


newvar 


yes. Just get next variable 




beq 


openpath 


yes. continue 




empa 


#'y 


is 1t "y"? 




leax 


-3.x 


no. reset parameter pointer 




bne 


errbel 1 


no. error bell and reprompt 


openpath 


pshs 


X 


save parameter pointer 


fork 


ldd 


1*000] 


type/lang. default data size 




leax 


<term.pcr 


terminal device name 




ldx 


cmdname 


command name pointer 




Ida 


#read. 


read mode 




ldy 


#200 


maximum parameter size 




DS9 


ISopen 


open path from keyboard 




os9 


Mfork 


execute the command 




bes 


quit 


exit with error 




bes 


unlink 


exit with error 




sta 


keypath 


save keyboard path number 




os9 


flwalt 


wait for command to finish 




puis 


X 


retrieve parameter pointer 




tstb 




command pass an error? 


f 1 ndend 


Ida 


-X+ 


parameter character 




beq 


newvar 


no. get next variable Input 




empa 


fS2fl 


command name? 




bsr 


rlngbell 


yes. sound terminal bell 




beq 


flndcnd 


no. look again 




cmpD 


n 


<BREAK>? 


link 


leax 


-1.x 


point to command name 




beq 


unlink 


yes. quit 




stx 


cmdname 


save command name address 




OS9 


fSperr 


print error number 




clra 




any type or language 


newvar 


Ibra 


getvar 


get next variable 




pshs 
o$9 


mink 


save data pointer 
1 ink to module 


* CHECK 


ERROR 


AND EXIT REP 






bec 


saveaddr 


no error, continue 


******** 


****** 


**************** 




empb 


1221 


can't find in memory? 


error 


empb 


#e«eof 


end of the input file? 




bne 


quit 


quit with other error 




bne 


unlink 


no. exit with error 




0S9 


fSload 


else try to load module 


noerr 


clrb 




yes. clear error flag 




bes 


cantfind 


prompt and quit on error 


unl ink 


*CLi 


headaddr 


get module header address 


saveaddr 


stu 


headaddr 


save module header address 




BS9 


ff unlink 


unlink command module 




stx 


pramaddr 


save command parameter address 


out 


o$9 


ftexit 


quit Rep 
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ok 
ok I en 



fee 
B j I 

■----.il 
equ 
end 



"7 ly/nl: 
•-ok 



Listing 2: >4aici!Rcp.bB9 



tlOSb 

aosc 

B9/3 



ea»A 

BBBi 



0907 

eaoo 

01.10 
14 J 
0178 
BIA9 
t'lOA 
0?8B 
8?3C 
0276 
0?A1 

ezoz 

1,1. 
0337 
H6C 
03A2 
B3D6 
0«87 
0438 
0466 
0497 
04C8 
0502 
0536 
0564 
0696 
05D2 
P60S 



HakeRep 
(* Generates the binary nodule rep *> 
(• Level 1 - change all laa to .'00 •> 
01" path.bn:8YTE 
HI" count: INTEGER 
PRINT "Creating rep . . ."; 
CREA1E (hjotn.'Vdd/cM-./rer.":WRHE 

FOR count-1 TO 416 

READ byt 

PUT floatli.Dyt 
NEXT count 
CLOSE flpath 
PRINT 

SHEIL "attr /dd/emds/rep e De" 
END 

DAIA 135. 2B5. 1.160. 0.13. 17. 129. 137. 9,123.2.195.82.181.240 
DATA 3. 4B. 99. 41. 49. 57. 56. 57. 32. 93. 46. 66. 46, 71. 111. 108. 10B 
DATA 98. 101. 114. 103. 42. 42. 42. 42. 37. 67. 97. 110. 39. 116. 32. 192 
DATA 105. 110. 109. 32. 99. 111. 109. 199. 97. 110. 100. 58. 32. 7. 12 
DATA 42. 42. 42. 32. 77. 105. 1 15. 115. 105.1 IB. 193. 32. 36. 13. 47 
DAIA 1 16. 101. 114. 237. 48.140. 232. 95. 32. 24. 48. 149. 2B1. 16. 142 
DATA (1.26.23.0.210.158.201.166.128.129.32.34.250.134.13 
DAIA 167.130.168.201.16,142.0.188.23.0.189,22.1.12,52.16 
DATA 15. 200. 166. 128. 129. 13. 39. 296. 129. 36. 38. Z46. 53, 16. 166 
DAIA 128. 129. 45. 38. 36. 236. 129. 138, 32. 207. 37. 16. 131, 111. 107 
DATA 39.2.48,29.52.16.48.140,170.134.1.16.63.132.37.205 
DATA 151.200.53.16.166.I28.I29.32.39.250.48.31.159.2OI.79 
OAIA 52.64.16.63.0.36.9.193.221.38.179.16.63.1.37.143.223 
DATA 705.159.703,53.64.79.16,147.0,100.48.701,6.707.16.63 
DATA 139,37,154.16.140.0.1.16.39.0.165.31.49.16.158.293 
DATA 166. 160. 179. 36. 39. 8. 167. 128. 179. 13. 39. 77. 37. 742. 52 
DAIA 32. 49. 201. 0.Z07. 236. 168. 167. 128. 193. 13. 38. 24B. 53. 32 
DATA 32.224.141.32.158.201.141.32.166.128.129.32.34.248 
DATA 31, 49. 14 1.76, 236. 128. 193, 1 3. 38. 748. 13. 700. 38. 74. 48 
DATA 141. 255. 36. 141. 10. 32. 58. 48. 141. 255. 13. 16. 142. 0.1. 134 
OATA 1.16. 63. 148. 37. 23. 57. 48. 149. 84. 16. 142. 0.9. 141. 239. 15B 
DAIA 200.48.201.0.287.16.142.8.1.16.63.137.37.55.48.141 
DATA 254. 244. 141, 718. 150. 707. 138. 37. 1 79. 110. 39. 33. 129. 171 
DAIA 38. 164. 204. 9.1. 158.201.16. 142. 0.290. 16. 63. 3. 37. 23. 16 
OATA 63.4.93.39.9.141.176.193.2.39.11.16.63.15.27.256.73 
DAIA 193.211.38.1.95.222.285.16.63,2,16.63.6.63.32,40.121 
OATA 47.118.41.58.32.231.75.212 
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Covering 
the Complete 
Line of Popular 
Tandy 
MS-DOS 
and Portable 
Computers 

Call (502) 228-4492 for information: 

(800) 847-0309 for V1SA/MC/AMEX orders 
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EDUCATIONAL PROGRAMS FOR THE 
TANDY (RADIO SHACK) 

COLOR COMPUTER 2 & 3 
32K DISK OR CASSETTE 








A BIBLE ADVENTURE! 

An exciting, non-graphic 32K adventure based on the Bible. 

BIBLE SCRIPTURES 

Quizzes on important Bible Scriptures. 

ALSO, other quizzes on the Bible, PLUS programs or 
Vocabulary, Word Usage, Spelling, and Math. 








Instructional, Informative, Neat, Colorful, 
With Block Graphics and Pleasing Sound 

Bible Programs $12.00 - Instructional Programs $10.00 
Both sets for $19.00 








Complete Instructions and Information Included! 

To Order, send check or money order to: j£*^& 
Sebastian LaSpada ///"v 
531 Main Street RAINBOW 
Dunkirk, New York 1 4048 conrnwno 

For Information, Call (716) 366-5261 
Educational Fun for the Entire Family! 


\ 
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CoCoPRO! Solitaire for OS-9! An 
all-new game package! Written in 100% 
ML, thisis the fastest solitaire game around! 
Includes regular and Klondike variations, 
options for iarge or small cards, and source 
code! Req. OS9 Iv 2, joystick or mouse. 
Regularly S17.95...intro special only 

$12.95! 



Accounting Level 2! A comprehensive 
personal/small biz package! Supports up to 
100 accounts w/menu of most common pay- 
ees, account & ledger printouts, cashflow 
statements (w/graphs), tracking of tax/GST 
paid, recurring payments, & more! Req. basic 
accL knowledge, OS9 lv 2, joystick or mouse. 
Regularly S49.95...intro special only 

$34.95! 



QuickLetter OS-9! No bells, few 
whistles. . . QuickLetter OS-9 is designed for 
quick and easy correspondence and small 
documents, without the hassles, steep learn- 
ing curves, and higher price of full-blown 
wordprocessors! Req. OS9 lv 2, printer. 
Regularly $27.95. ..intro special only 

$19.95! 



Add S4 US or S5 Foreign shipping. COD (US only) S4 additional. 





PRO! 



PC" BOX 763 YPSILANTI. Ml 48197 



Orders- 313.482.8128 
Others- 313.481.3283 

10 AM-630 PM EDT M-F 
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Feature Program 




The term inventory often brings to min 
images of stock clerks running froi 



jmind 
images ol stock clerks running from 
shelf to shelf, perhaps with those fancy 
calculators strapped to their legs, counting 
every product in sight. But not all invento- 
ries are so complex (nor so simple). For 
small-business and personal use (valuable 
items in the home, collectibles. etc.), such a 
major production is out of place. This is one 
of the reasons I wrote the Electronic File 
Cabinet (EFC). 



6030 OPEN "I".#-l.Nt 

6050 IF EOF(-l) THEN 6090 

6060 IF Y<4 THEN INPUT#- 1 ,At< X.Y 

) ELSE INPUT#-1.A(X.Y) 

7630 OPEN "OM-l.NJ 

7650 IF Y<4 THEN PRINT#-1 ,At( F. Y 

) ELSE PR1NT#-1.A(F.Y> 

Figure 1: Cassette Modifications 



EFC works on any CoCo with at least 
IGK and Extended BASIC. The program 
supports a disk drive or cassette (after a few 
minor modifications, described below), and 
use of a printer is optional. 

Before using EFC, it is important that 
you understand a few terms and how they 
relate to one another. In EFC's parlance, a 
record is equivalent to a drawer in a file 
cabinet, and zfilc is the same as a folder in 
that drawer. (These are different definitions 
than those used by some other data-man- 
agement systems.) The description, serial 
number, model number, etc. are the items 
(called fields) that go in the folder. Given 
this approach, a disk is viewed as the whole 
cabinet, which holds many drawers I rec- 
ords I, each with a unique Disk BASIC file- 
name. 

When you run fife", you 'II sec a prompt 
asking if you want to view/update an old 
record or create a new one. An "old" record 
is one that is already saved on disk. If you 
are running EFC for the first lime, you'll 
have to create a newrecord. so press N. then 
enter an eight-character (max) legal file- 
name for the record when prompted. You'll 
then be asked to enter the various 
fields for each file in the record. 
Press ENTER by itself to exit the 
file-entry routine. 



After an old record has been loaded from 
disk (or tape) or a new one entered from the 
keyboard, it can be viewed, updated or 
printed. A menu of options appears on the 
bottom half of the screen. You can Edit. 
Delete or Add a file; Print. Save or Load a 
complete record; or Exit the program. 

You can scroll through the files in 
memory using the up and down arrow: the 
up arrow key takes you to the previous file, 
and the down arrow moves you to the next 
file in the record. 

To enter the Edit mode, press E. An 
arrow appears on the top half of the screen, 
allowing you to select the field you want to 
edit. When the arrow is pointing to the 
appropriate field, press ENTER and enter 
the new information. Tocxit the Edit mode, 
press the space bar. 

To add a file to the end of the record, 
press A. or to delete the file currently dis- 
played, press D. To print all the files in the 
record, press P. 

Modifications 

As written, EFC saves and loads data 
using sequential-access disk files. To con- 
vert the program for use with a cassette- 
based system, make the modifications out- 
lined in Figure I . 

Shop Talk 

Electronic File Cabinet is a basic inven- 
tory program — most rainbow readers 
have seen them before. What really sets 
EFC apart from most other inventory pro- 
grams are its ihciIkkK of operanon .mil 
upside-down structure. 

The mosi commonly used approach to 
getting input into a BASIC program is with 
the INPUT command. INPUT waits for the 
user to type a string of characters and press 
ENTER. But if the user enters data thai 
doesn't meet certain standards, the com- 
puter forces him lo try again. For example, 
if a user enters a name of fifteen characters 
at a program prompt that expects a string of 
only ten characters, he would have to retype 
the entry — a real pain for hunt-and-peck 
typists. 

EFC doesn't contain a single I NPUT state- 
ment. Instead, the program uses a sub- 
routine I call the Limited Inputer to 
receive data from the kevboard. 




This subroutine uses the INKEYt command 
to scan the keyboard. When a key is pressed, 
its "value" is added to the total of characters 



Data Variables 


NS 


Record name 


Aid 


1 ) Description of File # 1 


Aid 


2) Serial No. of File *l 


A«(l 


3) Model No. of File #1 


A*(l 


4 ) Amount owned of File #1 


ASCI 


5) Value of File #1 


AS(2 


1 ) Description of File #2 


etc. 




Limited Inpuler Variables 


C,B 


Location of input 


Tt 


Total input 


Wt 


Letter printed on srecn 


!» 


INKEYt variable 


A 


Print location of prompt 


I 


Maximum length of input 


F.dil-Rou(ine Variables 


L 


Print location 


P 


Keeps track of location and 




of what to edit 


PI 


Arrow 


INI 


1NKFYS variable 


Fip 


ure 2; Variable Dictionary 



ihis subroutine for all its input. To see what 
function each variable performs, refer to 
the variable dictionary in Figure 2. 

To use this subroutine in your own pro- 
gram, print the input prompt at a specified 
location using a PRINT® command. Then 
assign that print location to Variable A, and 
the maximum input length to Variable I. 
Finally, have the program jump to the 
Limited Inputer subroutine. For example. 

PRINT»20."UHAT IS YOUR NAHE?":A- 
17:Z-15:GOSUB 1000:NAME$-T$. 

first printslhepromptWHAT IS YOUR NAME? 
at Screen Location 20. After assigning 
variables A and I, control is transferred to 
Line 1000 (the location of the subroutine). 
The subroutine moves the print location 15 
spaces to thcright(Line 1030)and prints 15 
periods ( Line 1 040) designating how much 
room the user has for input. After ENTER 
is pressed, the program returns to the point 
directly after the G0SUB command, where it 
assigns the variable NAMES to whatever the 
user entered. 

As far as program structure is concerned. 
EFC is "upside down." Thai is. the begin- 
ning of the program is at the bottom , and the 
most-used subroutines are at the top. This 
speeds up program operation since the 
computer starts searching for a subroutine 
at the lop and works down. Putting the Icss- 
frequently used program pans at the bottom 
requires the computer to do far less search- 
ing. 



already pressed. If the left (back! arrow is 
pressed, the last key pressed is subtracted. 
If you enter more characters than allowed 
for, the program simply ignores you and 
waits for you to press ENTER. EFC use* 



Daniel Doner wrote EFC as a junior in 
high school — he is now a graduate student 
in mechanical engineering at Colorado 
State and is studying artificial intelligence 
He is married and enjoys reading and flying, 
lie mav he contacted at .S/.S' foxtail Street. 
Fort Collins, CO M)524, (303) 4V0-I6/3 
Please include an SASE when requesting a 
reply. 



& 



The Listing: F.CAB I NET 

1 'ELECTRONIC CA8INII 

2 'BY DANIEL 0. DONER 

3 'COPYRIGHT (C) 1992 

4 'BY FALS0FT. INC. 

5 'RAINBOW MAGAZINE 
10 GOTO 10440 

1000 ' 

1010 ' LIMITED INPUTER 

1020 ' 

1030 C-15+A:Tt-"":B-C 

1040 PRINT8C.STRINGt(Z."."> 

1050 PRINT8B."": 

1060 It-INKEYt:lF It-"" THEN 106 



1065 IF ASC(IS)-8 AND 8>C THEN P 

RINT8B-l.".";:B-B-l:Tf-LEFTtdt. 

LEN(Tt)-l):G0T0 1050 ELSE IF ASC 

(U)-21 THEN 8-C:Tt-"":G0T0 1040 

ELSE IF ASCdf)-13 THEN RETURN 
1070 IF B-C+Z THEN 1060 
1080 Wl-"":Tt-Tt+It 
1090 Wt-Wt+It:PRINT8B.Wt::IF B<C 
+Z THEN B-B+l 
1100 GOTO 1050 
2000 ' 

2010 ' PRINT DATA 
2020 ' 
2030 Y-l 
2040 CLS 

2050 PRINT85. "RECORD NAME: ":Nt: 
PRINT828."#":I: 

2060 PRINT832. STRING*(32.131): 
2070 PRINT867. "DESCRIPTION: ";:P 
RINT867+13.Atd.Y):Y-Y+l 
2080 PRINT899. "SERIAL NO.: "::PR 
INT899<-13.Atd.Y):Y-Y+l 
2090 PRINT8131. "MODEL: "::PRINT8 
131+13, Aid. Y):Y-Y+1 
2100 PRINT8163."N0. OWNED: "::PR 
INT8163+12.Ad.Y):Y-Y+l 



2110 PRINT8195."VAL OF EACH: ":: 

PRINTei95+12.A(l.Y):Y-Y+l 

2120 PRlNT8224.STRiNGf(32.131); 

2130 PRINTe260."IOTAL VALUE: ";: 

PRINT USING"»t#M##..H":Ad.4>* 

Ad. 5) 

2140 PRINT8323."<E> - E0IT <S 

> - SAVE" 

2150 PRINT«355,"<L> - L0A0 <0 

> - DELETE" 

2160 PRINT8387."<A> - ADD <X 

> - EXIT" 

2165 PRINT8419,"<P> - PRINT" 

2170 ' 

2180 • FILE SELECT 

2190 ' 

2200 INt-INKEYt:lF INS-" THEN 2 

200 ELSE IN-ASC(INt) 

2210 IF IN-94 AND I>-2 THEN I-I- 

1:G0T0 2000 ELSE IF IN-10 AND K 

X THEN I-I+1:G0T0 2000 ELSE IF I 

N-69 THEN G0SUB 4000:GOTO 2000 E 

LSE IF IN-65 THEN G0SUB 10250:GO 

TO 2000 ELSE IF IN-88 THEN G0SUB 

10140:GOTO 2000 
2220 IF IN-83 THEN G0SUB 7000:GO 
TO 2000 ELSE IF IN-76 THEN G0SUB 

6000 ELSE IF IN-6B THEN G0SUB 1 
8000:GOTO 2000 ELSE IF IN-80 THE 
N G0SUB 8000:GOTO 2000 ELSE2200 
4000 ' 
4010 ' 

4020 ' EDIT ROUTINE 
4030 ' 

4040 L-64:P-1 
4050 PR1NT8L.PS: 

4054 PRINT8429."EDIT :": 

4055 PRINT8450.-USE UP-DOWN ARR0 
WS TO SELECT" 

4056 PRINT8489."<SPACE> TO EXIT" 
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7050 INS-INKEYS:IF INS-"" THEN 7 




4060 IN»-INKEV«:IF IN$--' THEN 4 


050 




060 ELSE IN-ASC(INS) 


7060 IF INJ-"N" GOSUB 7500 ELSE 




487B IF IN-94 AND P>1 THEN L-L-3 


IF INJ--Y" GOSUB 7600:RETURN ELS 




Z:P-P-1 ELSE IF IN-10 AND P<-4 T 


E IF INJO--Y" THEN 7050 




HEN L-L+32:P-P+1 ELSE IF IN-32 T 


7070 GOTO 7040 




HEN RETURN ELSE IF IN-13 THEN 41 


7500 PRINTe448.STRING»(46.32)::P 




10 ELSE 4060 


RINTe44B. "CORRECT NAME: "::Z-8:A 




40B0 IF L>64 THEN PRINT8L-32." 


-451:G0SUB 1000 




"; 


7510 NI-Tt:IF N$-"" OR YALUEFTS 




4090 IF L<192 THEN PRINTtL+32." 


(Nt.l))>0 THEN 7500 ELSE RETURN 




"• 


7590 " 




4100 GOTO 40S0 


7600 ' SAVE 




4110 IF P-l THEN A-65 ELSE IF P- 


7610 • 




2 THEN A-97 ELSE IF P-3 THEN A-l 


7620 PRINT8448.STRING»(40,32)::P 




29 ELSE IF P-4 THEN A-161 ELSE I 


RINTS461. "SAVING" 




F P-S THEN A-193 


7638 OPEN "0".*1.N* 




4120 IF P<4 THEN Z-15 ELSE IF P> 


7640 FOR F-l TO X:FOR Y-l TO 5 




4 THEN 1-6 ELSE 2-4 


7650 IF Y<4 THEN PRINT01 .A$(F.Y) 




4130 GOSUB 1000 


ELSE PRINT*1.A(F.Y) 




4140 A*(I.P)-Tt:!F P-l ANO AJ(I. 


7660 NEXT Y.F 




P)-"" THEN 4120 ELSE IF P>3 THEN 


7670 CLOSE:RETURN 




A(I,P)-VAL(Ai(I,Pl):IF P-4 AND 


8000 ' 




AO.PX1 OR P-S AND A(I,PK.01 T 


8010 ' PRINT ON PAPER 




HEN 4120 ELSE A( 1 ,6)-A( 1 .5)*A( I . 


8020 ' 




4) 


8030 PRINT8457. "PRINT: SURE ?" 




4150 RETURN 


8040 1N»-INKEY»:1F INt-"" THEN 8 




5910 ' 


010 




5920 ' LOAD DATA FROM DISK 


B050 IF INJ-"N" THEN RETURN ELSE 




5930 ' 


IF INSO"Y" THEN 8040 




6000 CLS 


8060 PRINT8449. "ALIGN PAPER—) P 




6010 PR1NTS96. "RECORD NAME TO LO 


RESS <ENTER>";:L1NE INPUT INS 




AD:"::Z-8:A-102:GOSUB 1000 


8070 PRINT#-2:PRINT#-Z:PRINT#-2. 




6020 NS-Tt: IF VAL(LEFTKN«.1>>>0 


"RECORD: ":NI 




OR NI-"- THEN 6010 


80B0 PR1NT#-2."DESCRIPT10N";TAB( 




6030 OPEN -l-.dl.Nt 


23)"SER1AL#":TAB(381"M0DEL":TAB( 




6040 FOR X-l TO 51: FOR Y-l TO 5 


51)"NO.";TAB(60)"VALUE":TAB(68)" 




6050 IF EOF(l) THEN 6080 


TOTAL VALUE" 




6060 IF Y<4 THEN INPUTf l.AKX.Y ) 


8085 PRINT#-2.STRINGS(79."-"I 




ELSE INPUTtl.AU.Y) 


8890 FOR 1-1 TO X 




6070 NEXT »,X 


8100 PRINI#-2. At(l.l):TAB(l?) A 




6080 CLOSE 


»(1.2):TAB(35) At(1.3):TAB(52) A 




6090 I-l:X-X-l:GOTO 2000 


(I.4):;PRINT#-2. TAB(59): :PRINT# 




7000 ' 


-2.US1NG"J$*##.#*":A(I.5);:PRIN 




7010 ' SAVE DATA- NAME CHECK 


T(-2.TAB(681;:PRlNT#-2.USlNG"«i# 




7020 ' 


«f##.#*":A(I.4)*A(I.5) 




7040 PRINT8448."IS •":NJ;" - CORR 


8110 NEXT I 




ECT NAME?":PRlNte480."(Y/N) ": 


8120 RE1URN 






NO CATCH GIVEAWAY. We at CoCoPRO! are eager to 
meet new friends who use CoCos, and can think of no better 
way to make them than by giving away this fabulous collec- 
tion of software to one lucky person. ..and that lucky person 
could be you! 

EASY TO ENTER. Simply send a postcard or letter with 
your name, complete address, telephone number, a brief 
description of your hardware setup, and indicate whether you 
use RSDOS, OS9, or both. Entries must be received by July 
15, 1992. One entry per household. On or about July 15, a 
representative of accounting firm Baker & Assoc, will draw one 
lucky winner from all entries meeting the above criteria.. .and 
that winner could be you. 

THE PRIZE PACKAGE. OS-9 Lv. 2 Development System. 
Simply Better, Newspaper09. NewsART09, NewsFONTS, V-Term, 
Disk Manager Tree, Tools II, Lv. II Tools, Presto Partner, Multi- 
Menu, Zapper, Carmen SanDiego, OS9 lv 2 BBS, FlightSim II, 
CoCoPRO! Solitaire. All require a CC-3, some require OS-9 lv 2. 



iPRO! 

POBox763 Ypsilanti, Ml 48197 



Enlnn nol tonUtmng it toque*. IM inlorndtto 



«v«JonorDot«oiiiV 15. 1993. may bcd«w»'(M 




Save Money Too! 

Subscnbe lo these convenient services and receive each month's programs in a ready-to- 
run form. No more long tedious hours wasted typing' No more red eyes and sore fingers! All 
you do is load and run. using the current issue ol THE FIAINBOW as documentation 

OS-9 programs are available too' Ore side ot Die RAINBOW ON DISK is formatted tor the 
OS-9 operating system (OS-9 programs cannot be put on tape| so you can get al the great pro- 
grams in the magazine. 

A oneyear subscripliai to THE RAINBOW and RAINBOW ON TAPE is only S91 in theU.S.. 
$108 in Canada. S1 53 foreign surface rate and $188 foreign airmail 

A oneyear subscription lo THE RAINBOW and RAINBOW ON DISK is crty$l15intheU.S.. 
$138 in Canada. $183 foreign surface rale and $218 foreign airmail U.S. currency only Back 
issues of both RAINBOW ON TAPE and RAINBOW ON DISK are also avaiable! (see our back 
issue ad in this issue) 

RAINBOW ON TAPE back issues are available begmnrg with the April 1 982 issue. A single 
copy of RAINBOW ON TAPE is$10 wttiin the U.S.. S12 ri all other countries. The annual sub- 
scrpfon for RAINBOW ON TAPE is $80 within the U.S: $90 in Canada; and $1 OS for all other 
countries. U.S. currency only 

RAINBOW ON DISK back issues are available beginning with the October 1986 issue. A 
single copy ol RAINBOW ON DISK is $12 within the U.S.. $14 in Canada, $16 in al cither count- 
nes.The annual subscrptjon for RAINBOW ON DISK is $99 within the U.S.; $1 15in Canada; 
and $1 30 for all other countries. U.S. currency only. 



Yes! Sign me up for a joint 1-year subscription (12 Issues) to: 

3 THE RAINBOW J THE RAINBOW 

and Rainbow on Tape and Rainbow on Disk 

3 New J Renewal (attach labels) 

Name 

Address 

City 

State 



2p. 



□ My check in the amount of is enclosed 

Charge to: □ VISA J MasterCard Q American Express 

Accounl Number 

Expiration Date . 



Signature 



For credit card orders, call (800) 847-0309, 9 a.m. to 5 p.m. EST. All other Inquiries 

call (502) 228-4492. 

' Payment must accompany order; we do not bill. U.S. currency only, please. 

Kentucky residents add 6% sales tax ; Canadian residents, 7% GST. Please allow 

6 to 8 weeks for delivery of first copies. All subscriptions begin with the cunent 

Issue. 

Please note : While group purchases ot RAINBOW ON TAPE and RAINBOW ON DISK 

are permitted (and multiple subscriptions are even discounted it purchased in one order 

Irom a club), no license to make copies is conveyed or implied. Unauthori?ed copying 

ot any copyright product is strictly illegal 
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Do You Rest 
Easy at Night? 




THE RAINBOW is the only publication that otters peace of mind to CoCo 
users. Members of the CoCo Community have always looked to THE RAIN 
BOW for comfort — hints, tips, the latest news and communication with 
others — for their Tandy Color Computers. 

THE RAINBOW continues to serve and support CoCo users, from 
beginners to the advanced, by covering the wide variety of topics affecting 
the CoCo Community. Looking for games? Telecommunications pack- 
ages? Finance programs? Interested in helpful utilities? Hands-on hard- 
ware projects? Want to take the guesswork out of buying software and 
hardware? From Disk BASIC to OS-9. THE RAINBOW has the answers to 
all your CoCo questions. 

Get rid of your nightmares by renewing your subscription today. THE 
RAINBOW — the best security blanket for a good night's rest. 



Use our 800 number! 

For credit card orders, you may phone in your subscription. Our credit 
card order number is (800) 847-0309, 9a.m. to 5 p.m. EST. We accept VISA. 
MasterCard and American Express.AII other inquiries call (502) 228-4492, 



Yes! Please send me RAINBOW Magazine. 

Choose one: _l New J Renew (attach label) 

U One Year $31 — 35% off cover price 
J Two Year $58 — 39% off cover price 
J One Year $79 — 44% oft cover price 

Which Tandy Color Computer do you use? 
3 CoCo 1 3 CoCo 2 J CoCo 3 

Name 

Address 

City 



State 



ZIP 

J My check in the amount o! _ is enclosed. 

Charge to: Q VISA 3 MasterCard □ American Express 

Account Number 

Expiration Date 



Signature _ 



Subscriptions lo THE RAINBOW are $31 a year in the United States. Canadian rate is 
S36 plus 7% GST (US lunds only). Surface rate elsewhere is $68 (U.S.) Non-U.S 
subscribers must inquire about multi-year discount. Airmail is S103 (U.S.). Kentucky 
residents add 6% sales tax All subscriptions begin wilh the current issue. Please allow 
6 to 8 weeks tor the first copy. In order to hold down non-editorial costs, we do not bill 

For credit card orders, call (BOO) 847-0309, 9 a.m. lo 5 p.m. EST. Alt other inquiries 
call (502) 228-4492. 



10006 ' 


ETURN 




10010 ' DELETE DATA 


10290 PRINT86.STRINGH21.32) 




10020 ' 


10300 Y-Y+l 




10030 PRINT8457."0ELETE (Y/N)?" 


10310 PRINTS96. "SERIAL NO.: "::A 




10040 INt-INKEVS: H INJ-"" THEN 


-96:Z-15:G0SUB 1000:AS(X.Y )-Tt 




10040 


10320 Y-Y+l 




10050 IF INS-"N" OR X<1 THEN RCT 


10330 PR1NT8128. "MODEL: "::A-128 




URN ELSE IF IN$<>"Y" THEN 10040 


:Z-15:G0SUB 1000:AS(X , Y )-T» 




10060 FOR C-I TO X:F0R Y-l TO 5 


10340 Y-Y+l 




L0070 AS(C.Y)-At(C+l.Y):A(C,Y)-A 


10350 PRINT8160."NO. OWNED: "::A 




IC+l.Y) 


-160:Z-4:GOSUB 1000:A(X. Y>-VAL(T 




10080 NFXT Y.C 


J):IF AIX.YX! THEN 10350 




10090 X— X - 1 : 1 r I>1 1HEN l-l 1 


10360 Y-Y+l 




10100 RETURN 


10370 PRINT8192. "VALUE OF EACH: 




10110 ■ 


"::A-192:Z-6:G0SUB 1000:A( X.Y )-V 




10120 ' £N0 


AL(TS):IF AIX.YX. 01 THEN 10370 




10130 ' 


10380 A(X.Y+1)-A{X.Y)*A(X.Y-1) 




10140 CLS:PRINr9?37.-ST0P!" 


10390 GOTO 10250 




10150 PRINT8293."ARE YOU SURE YO 


10400 ' 




U WANT" 


10410 ■ INIRODUCIION 




10160 PRINT8326."T0 DO THIS t (Y 


10420 • 




/N) " 


10430 - 




10170 IN$-INKEYS:IF INS-"" THEN 


10440 CLS:CLEAR 1000:DIH AK50.6 




10170 


).A(S0.6):PJ-"->" 




10180 IF INS-"Y" THEN END ELSE I 


10450 PRINT897.STRINGK29.131):P 




F 1NJ--N - THEN 2000 ELSE 101/0 


RINT897.CHR*(138)::PRINTei29.CHR 




10190 END 


S(138)::PRINT8161.CHRM138);:PRI 




10200 ' 


NT8162. STRINGS (28. 140) ::PRINT812 




10210 ' INPUT DATA 


5.CHRS(133)::PR1NT8157.CHRS(133) 




10220 ' 


;:PRlNTei89.CIIRJ(133): 




10230 CLS 


10460 PRINT8130."THE ELECTRONIC 




10240 PRINT8131. "RECORD NAME: ": 


FILE CABINET": 




:A-131:Z-8:G0SUB 1000:NJ-U:IF N 


104/0 PRINT8266."8Y DAN DONER" 




J-"" OR VAL(LEFTS(NS.1))>0 IHEN 


10480 PRINT8324.-NEW RECORD OR 




10240 


LO RECORO":PRINT8364."(N/0) 3" 




10250 CLS 


10490 IN$-INKEYJ:IF INJ-"" THEN 




10260 X-X+1:Y-1:IF X>50 THEN RET 


10490 




URN 


10500 IF lNJ-"0" THEN GOSUB 6000 




10270 PRINT96. "PRESS <ENTER> TO 


:G0T0 2000 ELSE IF INS-"N" THEN 




QUIT" 


GOSUB 10200:6010 2000 ELSE 10490 




10280 PRINT864, "DESCRIPTION: ":: 






A-64:Z-15:GOSUB 1000:AJ£X.Y)-TS: 






IF AJ(X.l)-"" THEN I-X-1:X-X-1:R 


/«\ 






Send Us Fifty Bucks. 

Choose a bundle. 

Save a bundle! 

Easy enough? 



Prices good on orders received by August IS, 1992 



Bundle #1: Simply Better & V-Term. The most full- 
featured CoCo-3 word processor, and the top terminal program! 
Regular price: $69.90 Save $19.90! 

Bundle #2: Disk Manager Tree, Multi-Menu, Zapper. 

View, create, delete, copy files with single keystrokes! Create your 
own pop-down menus easily! Patch commands, fix disks, save lost 
files! Req. 512k CC3, OS9 Iv 2. Multi-Menu requires Multivue. 

Regular price: $69.85 Save $19.85! 

Bundle #3: Data Windows & Data Merger Complete 
database and mailmerge package for OS9 Lv 2. Speedy and user- 
friendly! Takes an innovative approach to database handling by 
manipulating data using windows, making database display much 
more attractive and handling of data much easier. Also includes 
mailmerge for easy creation of form letters, custom address labels, 
and more! Req. 512k CC3, OS9 Lv 2. 

Regular price: $79.90 Save $29.90! 

Bundle #4: OS9 Iv 2 BBS, Presto-Partner, Solitaire. 

Complete BBS system comes ready-to-use, but iseasily custom izable. 
Has ANSI graphics, X/YModem transfers, unlimited message bases. 
PP includes RAM-resident phonebook, notepad, calculator, alarm, 
clock, macros, & more! See our other ad for Solitaire info. 

Regular price: $77.85 Save $27.85! 



Add S4 US or S5 Foreign shipping. COD (US only) S4 additional. 



PRO! 



POBOX 763 YPSILANTI, Ml 48197 



Orders-313.482.8128 

Others-313.481.3283 

10AM-6:30PMEDTM-F 
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Configuring a new Boot Disk 

HI upgraded my CoCo 3 to 5I2K and 
added a second disk drive. I also 
purchased OS-9 and am having great 
difficulty configuring a working system disk 
to support the double-sided drives. 

I am able to boot OS-9 and run config, 
and go through the steps to create a new 
boot disk. When choosing the device de- 
scriptors. I select d0_40d. dl_40d and 
dddO 40d. After I finish selecting the de- 
scriptors. I get the message: 

Use (CAUTION): 0S9GEN </devname> 

[-S] ... 

reads (stdinput) pathnames until 

EOF. 

merging paths Into new 0S9Boot f 

He. 

-s-single drive operation 

ERROR #215 

Here everything comes to a screeching halt 
and I get the OS9: prompt. I have gone 
through every issue of TUB RAINBOW since 
February 1 989 and read everything on OS- 
9 in those issues. I have The Complete 
Rainbow Guide lo OS-9 Level II and The 
BASIC09 Tour Guide. 

David itakker 
Hamilton. Michigan 

BIf ihe only modification you want to 
make is to change Ihedisk descriptors 
to use 40-track double-sided drives, it 
may be easier (and faster) to patch the 
descriptors in memory and use cobbl er to 
save the changes. To do this, boot OS-9 



from a backup of your master disk and issue 
these commands, pressing ENTER after 
each: 

modpatch 

1 dd 

c 14 03 00 

c 18 23 28 

c 19 00 01 

v 

1 dO 

c 14 03 00 

c 18 23 28 

c 19 00 01 

v 

1 dl 

c 14 03 00 

c 18 23 28 

c 19 00 01 

v 

CTRL-BREAK 

This modifies the dd. dO anddl descriptors 
for 40-track, double-sided drives stepping 
at 6 milliseconds. Note that when you enter 
v to update the module CRC, the cursor 
stays on the same line — keep typing the 
remainder of the commands. The last line 
means to press CTRLand BREAK simulta- 
neously to exit modpatch. After you've 
made these changes, insert a blank disk in 
Drive /dl and issue the command: 

format /dl r 2 '40' "OS-9 Boot D 
isk" 

This formats a 40-track double-sided disk 
with OS-9 Boot Disk as the volume label. 
After the disk is formatted and you get the 
OS9: prompt back, enter: 

cobbler /dl 

This command stores the OS-9 Kernel on 



40 NEW GRAPHIC DISKS! 



Our three graphic sets (10 disks each set) 
were so popular, we've added 4 more! 








Every order includes Macpainl - an excellent grapnics editor. 
Graphic pictures are Coco Max compatible. 



Prices: $20 per 10 disk set 3 or more sets - $15 each 
Special: All 7 sets - $90 



Set HI 

Clipart 

Animals 

More 



Set #2 

Celebrities 

Cartoons 

More 



Set 03 
R-Rated 
Women 

Adults Only 



New Sets 4,5,6,7 

Each set has a variety of: 

Business Clipart. Grin 

Graphics. Sports. Special 

Events Plus much more.' 
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Please Circle Graphic Disk Sets 12 3 4 5 6 7 



Track 34 and creates the file 0S9Boot on the 
disk in Drive /dl. 

The final step is to copy all the files on 
the old boot disk to the new boot disk. The 
easiest way to do this is to use dsave. With 
the old boot disk in Drive /dO and the new 
boot disk in Drive /dl, enter: 

chd /dO 

dsave /dO /dl ! shell 

Ordinarily, dsave generates the commands 
necessary for copying all the files from one 
disk to another, but docs not actually copy 
the files. For ihis reason, the output of 
dsave is piped to the input of shel 1 in the 
abovecommand line (this is what the excla- 
mation point means), so all the commands 
generated by dsave arc executed immedi- 
ately. Once this process has finished, you'll 
have a 40-track, double-sided boot disk — 
you may also want to copy basic09, runb, 
gfx2, inkey and syscal 1 from the BASIC09/ 
Config disk onto the new boot disk. 

In Search of Software 

Bin the August issue of OS-9 Hotline, 
you responded to Mr. Pratt's letter 
with some good information for 
sources of serious applications. You also 
mentioned The OS-9 Sourcebook from 
Microware. I cannot find an address for 
Microware anywhere. Can you tell me how 
to get in touch with them? I would like to 
obtain a copy of this book. 

George Ramsower HI 
San Antonio, Texas 



1 



You can contact Microware by 
calling (515) 244-1929 or by writing 



Microware Systems Corporation 
1900 Northwest 1 14th Street 
Des Moines, IA 50322 



Obtaining the Cursor Position 

BMany times while using BAS1C09 / 
have come across the need to get the 
current cursor position while in a 
program. After studying the OS-9 manual 
and reading many articles. I cannot find a 
way to do this, fs there a system call or some 
other way that I can get the current cursor 
position? Also, is there a way of simulating 
the HSTAT command in BASIC SO I can make 
a program read what is printed on the 
screen, aside from directly peeking the 
screen's address? Any help would be most 
appreciated. 

Aaron Yates 
Richmond, Virginia 

■ If you are using a VDG graphics 
jj screen.youcanusetheSS.DStat get- 
■MCS status call to obtain the position of the 
graphics cursor, the address of the graphics 
screen, and the color code of the pi xel at the 
cursor address. For a VDG text screen, you 
can use the SS.Cursr get-status call to 
obtain the character code of the character at 
the current cursor position, and Ihe position 
of the cursor. Unfortunately, no similar 
system calls exist to obtain the current cursor 
position for windows. 

The Nill Devices 

B What are ni } dr v .dr and n\} .dd that 
come with the Development System. 9 
/ can ' tfind them in the manual and all 
the help message tells you is that they ". . . 
are usually used for redirection." 

Michael Wright 
Nacogdoches, Texas 

BThe /ni 1 device is what I affection- 
ately refer to as "OS-9's great bit 
bucket." Any data you send to /p 
magically appears on the printer, and any 
data you send to /term magically appears 
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P.O. Box 733 Maple Valley, WA 98038 r'coCo f«i 
U.S. ORDER DESK: (800) 237-2409 
INT'L & TECHNICAL: (206) 432-181 4 



RUN OS9 LEVEL 2 VISIBL Y FASTER - GET A 
$29. 95 POWERBOOST FROM BURKE & BURKE! 

You can see the difference in OS9 Level 2 when you install the PowerBoost kit from 
Burke & Burke, ll includes the amazing Hitachi HD63B09E microprocessor, a 100% 
compatible high-performance replacement for your CoCo 3' MC68B09E. Using the 
HD63B09E's added registers and high-speed instruction set, block moves and other 
functions are up to 4 x as fast! The PowerBoost kit includes Burke & Burke's 
PowerBoost software, which modifies your OS9 Level 2 operating system for faster 
multitasking, graphics, and disk I'O when using the HD63B09E. SOLDERING IS 
REQUIRED TO INSTALLTHE HD63B09E. 

PowerBoost (Hl)63B09kw/SofiwarelorOS9) $29 95 

The 6309 Book b y Chris Burke. This book describes the instniction set of the 
HD63B09E microprocessor, and gives assembly language examples that help you 
detect the high-performance processor and take advantage of its capabilities in your 
programs. Includes disk with OS9 Assembler / Disassembler / Debugger patches for 
HD63B09E. REQUIRED ASM' ASSEMBLER, DEBUG' DEBUGGER, AND HD63B09E 
MICROPROCESSOR NOT INCLUDED. 



The 6309 Book (Includes disk with development tools forOS9) 



$24. 95 



WORLD CLASS CHESS' - Use Cyrus Chess w/ Level 2 S29 95 

FILL -SYSTEM RHPA CK 1.1 - raster disk defragmenter $29 95 

MSB.' Disk BASIC for Level 2 (BASIC ROM required) $3995 

EZGEN1 09 Handy <tj powerful OSPbootJ He editor $19 95 

ZCLOCK Continuous time, 'date display on Level 2 screen $9.95 

COCO XT Use PC hard drive w/CoCo .' OS9 S'W incl $69. 95 
(Add $30 for Real- Time Clock. Add $20 Tor auto-boot ROM) 

WA RESIDENTS ADD 8.2% SALES TAX. MasterCard & VISA accepted. U.S. CODs add 

$3.75. Min. U.S. shipping M.00. Min. to Canada $5.00. Please allow 2 weeks for 

delivery. Overnight or 2nd- day available for in-stock items. Software upgrades $5.00 

each w/receipt, including U.S. shipping. 

Call or write for a free catalog of more exciting Color Computer products! 
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on the screen. The /nil device is much 
differeni in thai any daia scni to /ni 1 goes 
absolutely nowhere. This is handy for those 
occasions when you want to run a com- 
mand but have no desire to see its output on 
the screen. 

Swapping Disks 

HHow can I run applications with OS- 
9? For example. I tried to run Color 
Computer Artist by Tandy. This pro- 
gram works in a graphics window, but I 
don't know how. The manual says that it 
can be copied to the customized OS-9 boot 
disk and to run artist once it has been 
copied to the CM DS directory by typing a r t - 



i st. When I boot OS-9 to run BASICOV. / 
insert the BASiaw/Config disk in the drive, 
type basic09 and get Error U2I6. I tried 
again and again but the error continues. 
Jose Tores Rivera 
Naranjito, Puerto Rico 



a Any time you insert a new disk in the 
drive, you need to tell OS-9 where the 
CMDS directory is located on the new 
disk and which directory you want to use 
for data storage and retrieval. For example, 
to run basicw you would insert the basicow 
Config disk into Drive /dO and issue these 
commands: 



chd /dO 

chx /dO/cmds 

baslc09 

Unless you change the current data and 
current execution directories. OS-9 doesn't 
know where the commands and executable 
programs are located on that disk. 

Have you a burning question regarding 
some aspect of the OS-9 operating system? 
Send it to us and we'll do our best to answer 
it for you. Direct your inquiries to OS-9 
Hotline, THE RAINBOW. 9509 U.S. Hwy. 42, 
P.O. Box 385, Prospect, KY 40059. 




Yes! They're still available! 
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Back Issues 




BACK ISSUES STILL AVAILABLE 

Have you explored the wealth of information 
in our past issues? From our very first, four- 
page issue lo many with more than 300 pages 
of material, it's all just for CoCo users — a 
great way to expand your library! 

A WORLD OF INFO 
AT A BARGAIN PRICK 

AH back issues sell for the single issue cover 
price. In addition, (here is a S3.50 charge for 
the first issue, plus 50 cents for each addi- 
tional issue for postage and handling if sent by 



United Parcel Service. There is a S5 charge 
for the first issue, plusa SI charge for each ad- 
ditional issue on orders sent by U.S.Mail. 
UPS will not deliver lo a post office box or to 
another country. 

MOST ISSUES STILL AVAILABLE 

Available issues through June \ l )%2 are pro- 
vided on white paper in a reprint form. All 
others are in regular magazine form. VISA. 
MasterCard and American Express accepted. 
Kentucky residents please add 6 percent sales 
tax; Canadian residents. 7 percent GST. In 



order to hold down costs, we do not bill, and 
no C.O.D. orders are accepted. 

Due to heavy demand, we suggest you order 

the back issues you want now while supplies 

last. 

To order, review and fill out the form below 

and mail it with your payment. 

For greater convenience, order through the 
Rainbow Magazine Services area of our Del- 
phi CoCo SIG. 



RAINBOW INDEX 

A complete index lor. July 1981 through June 1984. is printed in 
the July 1 984 issue. Separate copies are available tor $2.50 plus 50c 
handling. Indexes tor subsequent years are published annually in the 
July issues of the rainbow. 

TOTAL 

KY RESIDENTS ADD 6% 

CANADIAN RESIDENTS ADD 7% GST 



U.S. MAIL CHARGE 

SHIPPING & HANDLING 

U.P.S. CHARGE 

TOTAL AMOUNT 

ENCLOSED 



Article Reprints 

In instances where a given issue is now our ol phm and not available tor 
purchase, we do provide photocopies ol specific articles. The cost tor this 
service is Si .50 plus 50 cents S'H per article. This service is provided only in 
the case of out-ofstock issues. 

Name 

Address 

City 



State 



;_ Payment Enclosed. orCbarge to my: 

Card# 

Expiration Date . 
Signature 



Zip 
Li VISA 



a MC _AE 



Phone ( ) 



TO ORDER BY PHONE (credit card orders only) call (80O| 847- 
0309. 9 a.m. to 5 p.m. EST. All other inquiries call (502) 228-4492. 
send to: THE RAINBOW, The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059 

Please send me the following back issues: 
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More Memory fur the CoCo 2? 
^^k Can I upgrade my CoCo 2 to I28K 
^BJ using the chips I took out of my CoCo 
3 when I upgraded it to 5I2K? 

E. Oelscha/ger 
Pittsburgh. Pennsylvania 

A No. The ability to increase the mem- 
ory of any specific computer is de- 
pendent not only on the chips available, but 
also on the memory-management circuitry 
within the computer. The CoCo 1 and 2 are 
designed to handle no more than 64K of 
memory and would require extra circuitry 
to support more. As an historical note. 
memory upgrades for up to 256K were at 
one time available for the CoCo 1 and 2. 
Very little software was written to support 
and take advantage of these upgrades, 
however; and they faded lo obscurity with 
the advent of the CoCo 3. 

Printing in Parallel 
^^k I have a Blue ( 'hip M/OtNLQ printer 
^B^ that has a 36-pin parallel port and a 
6-pin Commodore-64 serial port on it. I low 
can I use this with a CoCo 3? 

Brandon Broy/es 
The Cobry. Texas 

A You cannot use the 6-pin port because 
the serial format for a Commodore-64 
is electrically different from that used by 
most other computers. You can use the 36- 
pin parallel port on that printer, but you'll 
need to buy a serial-to-parallel converter 
(such as those sold by Dayton Associates 
andCoCoPRO!). 

DC Modem Pak and Downloading 

^^k I haw a DC Modem Pak and an ID 
^^^ 500 disk drive, but I have no Multi- 
Pak Interface. I find myself unable to down- 
load anything from any online system. What 
do I need? 

Donald G. Mayhew (LUPIS) 
Lakewood, Colorado 

A There arc several ways you can pro- 
ceed to fix the situation. By far the 
least expensive approach would be to tem- 
porarily forget about the DC Modem Pak 
and purchase a 1200- or 2400-bps external 
modem. This can then be connected to the 
4-pin serial port on the rear of the CoCo. 
using a special 4-pin DIN to DB-25 cable. 
The pin-out for this cable is as follows: 



Modem DB-25 



CoCo DIN 

1 8 

2 3 

3 7 

4 2 



With the hardware in place, get a decent 
CoCo 3 terminal package. There are several 
excellent shareware programs (Delphiterm, 
Ultimaterm and Greg-E-Term) that support 
operation of an external modem at 1 200 and 
2400 bps with the internal serial port. There 
are also several fine commercial terminal 
programs for the CoCo 3 that support 1 200- 
and 2400-bps operation via the bit-banger 
port. Two of these are VTerrn (available 
from CoCoPRO! > and Deluxe Term (avail- 
able from Cer-Comp). Of course, for print- 
ing, you'll need to either switch connectors 
or buy or make a switch box to go between 
the printer and the modem. 

You might be able to trade the unused 
DC Modem Pak to CoCoPRO! for mer- 
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chandise, or (as another approach to your 
problem) you can pay them to turn it into an 
RS-232 pack. Then if you ever get a Multi- 
Pak Interface, Slot Pak or Y cable, you can 
use the converted pack with your modem to 
permit smoother operation and free the 
serial port lor the printer. 

On the 63B09E Front 

^^ I've heard about the Hitachi 63B09E 
Wf (a CMOS version of the 68B09E) not 
merely emulating the 6809, hut actually 
having considerably more registers and 
commands . Is this so ? Where can I get one ? 
Dennis McMillian (COCOKWI) 
Pittsburg, California 

A Kevin Darling (DARLING) recently 
circulated on the CoCo mailing list a 
document of over a dozen pages written by 
Hirotsugu Kakugawa of the Graduate 
School of Engineering of Hiroshima Uni- 
versity in Japan. This document (now avail- 
able on Delphi in the Hardware Hacking 
database of the CoCo SIG and in the Gen- 
eral topic area of the OS-9 SIG) details the 
"secret" features of the 6309. In summary, 
in addition to emulating the 6809, the 6309 
operates as a low-power CMOS chip and is 
capable of cycle speeds of 3 MHz or more. 
The chip has these special properties: 

• two 8-bit accumulators, one 8-bit reg- 
ister and one 16-bit register 

• two modes of operation: 6809 emula- 
tion and native mode 

• reduced execution cycles in native 
mode 

• more instructions, including 16-bit- 
by-16-bit multiplication, 32-bit-by- 16-bit 
division, more inter-register operations, bit- 



manipulation instructions compatible with 
the 6801, and block-transfer operations 

• error trapping of illegal instructions, 
including divide by zero 

Details of the "secret" features are in 
large part explained in the document by 
Hirotsugu. A 63B09E can literally be 
dropped into a CoCo 3 (provided you've 
removed the original 68B09E chip and put 
a socket in its place). No other hardware 
modifications are needed. I'm told by 
Brother Jeremy (RHVWCP) that you can 
order 63B09E\s in quantity one from 
Summer Inc. in Illinois (708-991-8500). 

Joystick Sticks 

^^ The \ erticai axisoj my right jo) stick 
^E^ is stuck at a value of 25 when I read 
the joystick. The horizontal axis works fine . 
as do both axes of the left joystick. I read a 
long time ago that an LM3900 chip is used 
in the CoCo 1 joystick circuit, but I cannot 
find such a chip in the CoCo 3. 

Also, my DMP- 1 10 is behaving oddly. In 
self-test mode, it prints part of the top of 
each row of characters at the bottom of the 
character. Any suggestions? 

Roy Wilson 
El Reno, Oklahoma 

A First swap the left and right joysticks 
to see whether the problem follows 
the joy-stick, or whether it stays with a 
given joy-stick port on the CoCo. If the 
problem is in the joystick, you have a bad 
joystick cable or a bad connection inside 
the joystick. Inside the joysticks are two 
10,000-ohm potentiometers mechanically 
linked to the axes of motion. Look for a 
defective mechanical linkage. Use a stan- 
dard ohmmctcr to find breaks in the cable, 
a defective potentiometer or a broken wire 



CoCo III Tool Kit 



Disk Commands 

Backup, Initialize, 
Directory, Verify, Compare, 
Search, Edit, Erase, Speed 
Test, Step Rate Test, Gran 
Table Analysis & Repair 



File Commands 

Arcive, Copy, Kill, Rename, 
Erase, View, Edit, Print, 
Compare, Salvage, Search, 
Verify, Test Arcive, Un- 
Arclve, Xmodem Send/Rec. 



Coco Tools is a comprehensive set of disk utilities, providing the most 
complete set of functions available for the standard R.S. DOS disk system. 
Comparable in scope and functionality to that of the famous utility 
available for MS-DOS computers "PC-TOOLS"! 

Coco Tools provides fast and easy operation of standard DOS commands 
like Copy, Rename, Kill, Disk Initialize and Directory thru a consistent 
and easy to use interface. It provides easy visual selection of files, so 
multiple file operations can be carried out with very few keystrokes. 
Coco Tools is also the most Comprehensive Disk Repair program 
available, it Automatically diagnosis and repairs file allocation errors, 
locates corrupt directory information and cross linked files. It provides 
fast and easy recovery of deleted files without the drudgery normally 
associated with killed file recovery. It also does lightning fast disk I/O for 
fast Backup and Copying at speeds you thought only higher priced 
computers could perform. Coco Tools has multi-file Arciving, Un- 
Arciving and Test Arciving functions plus the ability to extract any 
selected group or individual files from a compressed file with easy visual 
file selection. And allows customizing of display colors, printer/Serial 
baud rate. Drive step rates and Directory sorting preference. Coco Tools 
requires a 128K CoCo III, 1 Disk drive and an 80 column display $49.95 



To order by VISA, MASTERCARD or COD 
Call Toll Free 1-800-383-8529 

(Monday thru Saturday, 8am to 5pm PST). 

To order by mail, send check or money order for the amount of 

the program plus $4.00 for shipping and handling to : 

Cer-Comp Ltd. 

5566 Ricochet Avenue 

Las Vegas, NV 89110 

702-452-0632 



that should be connected to the potentiome- 
ter. 

If the problem is with the CoCo 3 joys- 
tick port, get a schematic for the CoCo 3 
(available in the Service Manual for the 
CoCo 3, which you can order through Radio 
Shack stores). Carefully check continuity 
from the joystick connector to IC7 
(SC77526). This is a custom chip specific 
to the CoCo 3. (Tandy "drew" a line around 
much of the discrete components of the 
joystick and cassette circuitry of the CoCo 
1 , and stuffed it all into this one custom 
chip. If the problem is in a chip, it most 
likely is in this chip. This chip is available 
only from Tandy National Parts, if indeed it 
is still available at all. 

As for the printer, I fear it is likely to be 
unrepairable. Your problem sounds like a 
defect in the "computer" that lives inside 
the printer. 

Bump Off the 6809 

^^k I accidentally bumped my disk con- 
^B^ troller when it was plugged into my 
Slot Pak and my CoCo 3. Now when the 
computer and that controller are used to- 
gether, the drive just spins. It does not work. 
The disk controller appears to work fine 
when used with my spare CoCo 3. Any 
suggestions? 

Charles Rempel 

Plum Coulee, Manitoba 

Canada 

Alt sounds like you have damaged the 
68B09E chip in your CoCo 3. This 
often happens when a card is jostled in a 
Multi-Pak Interface or Slot Pak. The 
68B09E chip must be removed. Destruc- 
tive removal is best: Clip all pins and re- 
move the chip, then use a soldering iron and 
needle-nose pliers to remove each pin from 
the circuit board. When finished, clean all 



the holes with a solder sucker, install a 40- 
pin socket, and put a new 68B09Echip in it. 

Drive Won't Format Disks 

^^k / have a Tandy FD-501 disk drive 
^K^ that reads and writes files but will not 
properly format diskettes. What is the prob- 
lem, and how can I fix it? 

Ben Culwell 
Marion, Ohio 

A This is a problem about which readers 
frequently write. Disk drives do not 
use the index pulse signal when reading and 
writing sectors (files). This signal if. ased 
only for writing entire tracks (formatting). 
Thus, your problem is with the index pulse, 
either in the drive, the cable or the control- 
ler card. On the FD-501 controller, the 
index signal (Pin 8 of the 34-pin connector) 
goes straight to the floppy-disk controller 
chip, although it is pulled High by a resistor. 
Some Delphi members have reported to me 
that on their controllers they found a short 
that was connecting Pin 8 of the 34-pin 
connector to ground, causing the problem 
you describe. To locate the problem, you 
need to use an ohmmeter (and perhaps an 
oscilloscope) to check the index-pulse cir- 
cuit down the line. You may also want to 
swap a known good controller for the sus- 
pect one, and the same for your drive and 
cable (one at a time) to try to determine 
where the problem is. 



Martin H. Goodman. M.D.. a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Cosell of 
the CoCo world. On Delphi. Marty is the 
SIGop of THE rainbow's CoCo SIG. His 
non-computer passions include running, 
mountaineering and outdoor photography . 
Marty lives in San Pablo, California. 
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COCO FRIENDS DISK MAGAZINE. 

(CFDM) is devoted exclusively to 

those who still enjoy running under 

RS Dos. The standard system 

needed to use CFDM is CoCo 3, 

RGB monitor, at least one disk drive, 

and the RS Dos 

which came with your CoCo 3. 



CFDM Is a monthly disk based publication which is produced on a "Hippie" disk. When 
you "Run" the "magazine" side of CFDM, you'll be greeted with a beautiful cover 
picture by CoCo Friend James Gibbons. Pressing any key takes you to the magazine's 
colorful Main Menu. There you'll find 14 sections which are filled with entries. Sections 
Included are: About CFDM; About this Issue; Active CoCo; Advertisements; CoCo 
Friends Art Gallery; Articles of the Month; Family Tree; Forum; From the Editor; Letters 
to the Editor; Potpourri; Programs of the Month; Reviews; and Question & Answers. 

Next you will enter a Section and find a number of entries written by our CoCo Friends 
from all over the world. Each issue of CFDM contains from 60 to 80 entries. Some 
sections contain documentation about the many programs and graphics found on the 
"flip-side" of CFDM. 



The "flip-side" or "program" side of CFDM is filled 
with contributions of wonderful programs and 
graphics from our many CoCo Friends! Each issue- 
has from 2 to 4 hl-res pics and trom 8 to IS never-- 
before-seen programs. 






The cost of CFDM is S6 per issue or $30 for a 6 issue 

subscription. Join us now for a lot of fun! If you're like me, there's never too many 

Friends around to enjoy a great time on the CoCo. 

SEND CASH, CHECK OR MONEY ORDER TO; 



RICK'S 



(606) 787-5783 
CODS Add S2.50 



COMPUTER 
ENTERPRISE liberty, ky. 42539 



20 July 1992 



THE RAINBOW 



Directory continued from Page / 

press ENTER, then cmcr ihc three-charac- 
ter extension. 

C (Copy) — copies the selected file 
from one drive to another. 

K (Kill) — erases the selected file from 
the disk directory. 

S (Scan) — views the contents of the 
selected file onscreen. Scans ASCII and 
binary files, though file bytes with values 
less than 32 and greater than 1 27 are not 
displayed as characters. Warning: Attempt- 
ing to scan CoCo Max III files will lock up 
the computer. 

D (Drive) — selects a new drive. Also 
use this option to view a new disk in the 
same drive; just reselect the current drive. 

X (Disk Name) — adds a name (up to 26 
characters) to the disk. (I really hate pulling 
a disk out of the drive just to read its label.) 
The disk name, which can be changed at 
any time, is stored on Track 17, Sector 1 of 
the disk in the current drive. Some commer- 
cial software uses this area, as do sonic 
other system enhancement programs. If in 
doubt, use a disk editor to make sure this 
area is clear before proceeding. Warning: 
Do not attempt to name OS-9 disks with Di- 
rectory Master. Press ENTER by itself to 
abort this option. 

V (Directory) — lists the directory on a 
32-column screen. This option is particu- 
larly useful when you need to sec the stan- 
dard directory information (file type, for- 
mal and size). 

Q (Quit) — exits Directory Master and 



returns to BASIC. All system enhancements 
remain in effect, but Directory Master is 
removed from memory. 

As implied above, several system en- 
hancements are poked into memory when 
you first run Directory Master. These are 
described in the remarks imbedded in List- 
ing 1, so I won't cover them here. But do 
take a look at them — you may find them 
suitable for use in other programs. 

While Directory Master includes many 
Are You Sure? prompts, no fancy error 
trapping is provided by the program. If an 
error occurs, the program will abort much 
as if you had selected the Quit option. 

Feel free to modify Directory Master to 
suit your needs. Ideas for enhancing the 
program include (you got it) better error 
trapping and arrow-key and/or joystick 
control. I would appreciate hearing your 
comments, suggestions and questions, and 
would like to see any modifications you 
make. 1 hope Directory Master is as helpful 
to you as it has been to me. 



The Color Computer is currently Dwight 
Stegall's only hobby, although he has en- 
joyed operating CHs and amateur radio for 
several years. He has been a BASIC pro- 
grammer/or seven years. He may be con- 
tacted at 624 4th Avenue, East Moline, It. 
6/244. Please include an SASE when re- 
t/nesting a reply. 



CoCo 3 Disk 



^ 



Listing 1: DMASTER 

1 "DISK MASTER 

2 'BY DWIGHT L. STEGALL 

3 'COPYRIGHT (C) 1992 

4 'BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 

10 IFPEEK(33021)O50THENCLS:PRIN 
T"THIS PROGRAM WILL NOT FUNCTION 
WITHOUT THE COLOR C0MPUTER3-": 
PRINT:CLEAR200:NEW ELSEONERRGOTO 
945:P0KE41382.25S:P0KE41384.1 
15 ■*** MAKE SYSTEM CHANGES 
20 POKE41598.255:P0KE41599.255:V 
ERIFYON:POKE65496.0:POKE65344.0: 
POK£65497.0:POKE41954,250 
25 P0KES8953.16:RGB 'FORCE CMP 8 

RGB TO RESET ALL 16 PALETTES IN 
STEAD OF 15 

30 WIDTH40:POKE65434.0:GOSUB880 
35 A$-"1854096063002953532900636 
00954186208" :A-58964:F0RI-1T0LEN 
(AS)STEP2:BS-MID$(At.I.2):8-VAL( 
BS):P0KEA.B:A-A+1:NEXT 'PALETTE 
VALUES FOR CMP I RGB 
40 P0KE38543.33:P0KE38563.33:PCL 
IAR0 'PATCH PCLEAR TO INCLUDE 
45 POKE1022.PEEK(114):POKE1023.P 
EEK(115):P0KE114.3:POKE115.249:P 
OKE1017.18:POKE1018.127:POKE1019 
.255:POKE1020.223:POKE1021.126 ' 
RESET PROTECTION 

50 POKE63468.0:POKE63503.0:POKE6 
3567.0:POKE63644.0:POKE63771.0 ' 
TURNS OFF 40 S 80 COLUMN CURSOR 
DURING PROGRAM OPERATION EXCEPT 
AT AN INPUT AND A LINEINPUT LIKE 

IN W10TH32. AD0S3'S "MENU" UTIL 
ITY WILL DESTROY THESE POKES. 
55 CLEAR200,32255:POKE32517.13:F 
ORI-32518TO32523:REA0BJ:P0KEI.AS 
C(B$):NEXT:POKEI.13:POKEI+1.0:PO 
KE44151.127:P0KE44152.5:DATA R.E 
.A.D.Y.! 

60 IFPEEK(41602)-23THEN80 'IF AD 
0S3 THEN 8YPASS NEXT 3 LINES 
65 'SETS 6MS DISK STEP RATE IF Y 
OU ARE NOT USING A00S-3 
70 IFPEEK(49474X>48THENDB-1 'DI 
SK 8ASIC 1.1 IF <>48 
75 IFDB-1THEN POKE55318.20:POKE5 
5232.0 ELSEPOKE55075.20:POKE5498 
9.0 
80 F0RI-55671T055675:READA$:P0KE 



I.ASC(AJ):NEXT:OATAG.R.A.N.S 'CH 

ANGES 'FREE' TO 'GRANS' 

85 P0KE65496 .0 : LOA0M"STR0M0D3" : C 

LEAR10000: 0NERRGOT0946 : H 1-65497 : 

LO-65496:POKEHI.0:POKE235.0:DIMA 

J(69).N(69).TJ(69).EJ(69).P»(69) 

.F(69) 

90 POKE61203.196 'FIX THE HPUT " 

NOT" OPTION 

95 P0KE62861.189:P0KE62862.244:P 

OKE62863.204 'FIX HDRAM BUG 

100 P0KE63164.255 'EXTEND 40 4 8 

COLUMN "CLS" CHOICES FROM 1-8 

TO 1-255 

105 GOSUB890:GOSUB900:HBUFF0:HBU 

FF2 .320 : HBUFF3 . 1250 : HBUFF4 . 1250 : 

HBUFF5.3840:HCOLOR1.0:HSCREEN3:H 

GET(0,0)-<319.95>.5 

110 "**« WHEN USING RUN. LOAD. N 

AME. COPY. SCAN. AND KILL USE TH 

E SPACEBAR TO SELECT FILENAMES 

116 '**• MAIN SCREEN 

120 POKEHI.0:HCLS1:HGET(0.0)(43 

7 . 15 ) . 4 : HCOLOR0 : FORI-0TO23 : HPRI N 

T(0.I).STRINGJ(11.92):HPRINTI69. 

I).STRING$(11.92):NEXT:GOSUB910 

125 HCOLOR0:HPRINT(l4.l9)."D1rec 

tory Master VI. 01 written by: Dw 

ight L. Stegal1":HPUT(l04.l60)-( 

535.175).4,NOT:HCOLORl:HPRINT(15 

.20)."R-Exec L-Load N-Fn 

me C-Copy K-Kil 1":HPRINT 

(15,21)."S-Scan D-Driv X 

-Onme V-Drty O-Qui 

130 GOSUB335:HPUT(200.16)-(215.1 

51).4:HPUT(312.16)-(327.151I.4:H 

PUT(424.16)-(439.151).4:HGET(104 

. 16) - ( 535 .83 ) . 5 : RGB : G0SUB245 : GOS 

UB215:G0SUB275 

135 P0KE282.255:HI-65497:L0-6549 

6:POKELO.0:POKE135.0:DN-PEEK(236 

):DNJ-":"-«-CHR«(48+DN) 

140 XJ-INKEYJ:IFXJ-""THEN140ELSE 

POKEHI.0 

145 IFXS-"R"THENAR-1:KJ-"EXEC":G 

0SUB535 : G0SU8365 : G0T0585 

150 IFXS-"L"THENAR-2:KS-"LOA0":G 

0SUB535 : G0SUB365 : G0T061 5 

155 IFXS-"N"THENAR-3:KJ-"NAME":G 

0SUB535:G0SUB365:G0TO645 

160 I FX»-"C"THENAR-4 : KJ-"C0PY" :G 

0SUB535 :G0SUB365 : G0T0685 



166 I FXS-"K"THENAR-5 : KJ-"KI LL" :G 

0SUB535 : G0SUB365 : G0T0725 

170 IFX$-"S"THENAR-6:KS-"SCAN":G 

0SUB535 : G0SUB365 : G0T0735 

175 IFX$-"0"THENAR-7:G0SUB535:G0 

SUB200 : G0SUB635 : G0T0135 

180 IFXt-"X"THENAR-8:G0SUB535:G0 

TO805 

185 I FX J-"V"THENAR-9 : G0SUB535 : GO 

T0825 

190 lFXJ-"0"THENHGET<468.168)-(5 

22. 175). 2 :HPUT(468. 168) (522. 175 

).2.N0T:G0SUB355:G0SUB355:G0T094 

5 ELSEFORI-1TO10:PALETTE1.RNO(63 

): NEXT: RGB : POKELO.0: POKE135.0:GO 

T0135 

195 "*** SELECT WORKING DRIVE 

200 HCOLOR0:HPRINT(15.22)."Which 

drive do you need? 0.1.2.3 
205 EXEC44539:Z-PEEK(135):IFZ<48 
ORZ>51THEN205ELSEPOKE236.Z-48:GO 
SUB345 : G0SUB335 : G0SUB245 : G0SUB21 
5 :GOSUB275: RETURN 
210 '*** PRINTS HEADER 
215 GOSUB320:HPUT(104.0)-(535.15 
).4:HCOLOR1:HLINE(520.0>-(520.15 
).PSET:HCOLOR0:HPRINT( 14.0). "THE 

CURRENT DISK NAME":HLINE(285.2) 
-(304.4).PSET.BF:HPR1NT(38.0).CH 
R*(123)+" "+I« 

220 HPRINTI 13.1 )."•": HPRI NT( 15.1 
). "CURRENT DRIVE J"tRIGHTJ(STRJ( 
DN).1):HPRINT(32.1).""* 
225 IFN<10THENUJJ-"0"*RIGHT$(STR 
$(N).l)ELSEUJJ-RIGHT$(STRt(N).2) 
230 IFGR<10THENUK«-"0"+RlGHT$(ST 
Rt(GR).l)ELSEUK$-RlGHTJ(STRS(GR) 
.2) 

235 HPRINTI 36. 1)."F I LENAMES-">UJ 
»:HCOLOR0:HPR1NT(49.1)."***":HPR 
INT( 53.1). "FREE GRNS-"HIKt:HPRIN 
T(66.1)."-":RETURN 
240 ■*** READS FILENAMES FROM DI 
SK 

245 POK£LO.0:FORI-1TO68:PSI1)- H " 
: NEXT: ON-PEEKI 235) :N-0:P-0: FORX- 
3T011:OSK1SDN.17.X.A*(1),A$(2):F 
0R0-1T02 : F0RI-1T0128STEP32 : N-N+l 
:T»(N)-MIDJ(AJ(0).I.8):IFASCIT$( 
N))-255THENN-N-1:GOTO260ELSEIFAS 
C(T$CN) 1-0THENN-N- 1;G0T0255 
250 ES(N)-MID$(AJ(Q),I+B.3):P*(N 
)-TS(N)+"."+E$(N):F(N)-ASC(MlD$( 
AJ(Q).I-t-ll.l)) 
255 NEXTI.O.X:POKEHI,0 
260 IFPS(1)-""THENHCOLOR0:HPR1NT 
(15. 221. "THERE ARE NO FILES IN D 
RIVE ("♦CHRJ ( DN*48 ) : G0SUB355 : POK 
EHI.0:GOSUB345:GOSUB200:GOSUB535 
:G0T0135 
265 RETURN 

270 ■*** PRINTS FILENAMES ON SCR 
EEN 

275 POKEHI.0:GP-1:HCOLOR1:A-2:B- 
1:CL-13 

280 F0R1-B TO N:HPRINT(CL.A) .P$( 
B):A-A+1:B-B+1 
285 IFB>N THENRETURN 
290 IFA>18THENGP-GP+1:GOTO300 
296 NEXT: RETURN 

300 IFGP-2THENA-2:CL-27:GOTO280 
305 IFGP-3THENA-2:CL-41:GOTO280 
310 IFGP-4THENA-2:CL-55:GOTO280E 
LSERETURN 

315 '*** READS DISK NAME ON TRAC 
K #17. SECTOR #1. 
320 HS-"THIS DISK HAS NO NAME!": 
DN-PEEK(235):POKELO,0:GR-FREE(DN 
):DSKISDN.17.1.IJ.J$:POKEHI,0:PO 
KE65344.0:IFLEFT$(I$.1)-CHR$(255 
)THENIJ-H» ELSEIFLEFTS(I$.1)-CHR 
*(32)THENIJ-H» EISEU-LEFTJIM.2 
6) 

325 RETURN 

330 •*** CLEARS FILENAME FIELD 
335 HPUT(104.16)-(535.83).5:HPUT 
(104.84)-(535.151).5:RETURN 
340 '*** CLEARS ROWS 22 & 23 
345 HPUT(104.176)-(535.191).4:RE 
TURN 
350 '*** PAUSE AFTER PRINTING ON 

SCREEN 
355 FORT-1TO750:NEXTT:RETURN 
360 '*** SELECTION OF FILENAMES 
365 GP-1:AL-2:B-1:RX-104:RY-199 
370 HGET(RX.AL*8)-(RY.AL*8*7).2: 
HPUT(RX.AL*8)-(RY.AL*8+7).2.N0T: 
P0KE338.255:P0KE345.255 
375 IFPEEK(338)-191THENRETURN EL 
SEIFPEEK(345)-247THENAL-AL+1:B-B 
+1 ELSE375 

380 HPUT(RX.AL'8-8)-(RY.AL»8-l). 
2 
385 IFB>N THEN365 



390 IFAL>18THENGP-GP*1:GOTO400 

395 GOTO370 

400 IFGP-2THENAL-2:B-18:RX-219:R 

Y-310:GOTO370 

405 IFGP-3THENAL-2:B-35:RX-330:R 

Y-421:GOTO370 

410 IFGP-4THENAL-2:B-52:RX-441:R 

Y-532:GOTO370ELSERETURN 

415 '*•» HSCREEN 'LINEINPUT' SIM 

ULAT10N 

420 POKE135.0:Y»-"":Z$-"":X-PEEK 

( 1024 ):Y-PEEK( 1025 ):Z-PEEK( 1026) 

:FG-PEEK(1027):SL-X 'X-ROW POSIT 

ION OF CURSOR. Y-ROW POSITION OF 

CURSOR. Z-AMOUNT OF CHARACTERS 
THAT MAY BE INPUT AT ONE TIME. F 
G-FOREGROUND COLOR 
425 HC0L0R2:HPRINT(X.Y).CHR*(127 
>:HPUT(X"8.Y-8)-((X*8)+7.Y*8+7). 
4:YJ-INKEY»:1FY$-""THEN42S 
430 IFYt-CHRS(255)THEN425 
435 IFASC(Y»)-130RASC(YJ)-8THEN4 
45 

440 IFASC(YS)-21THENX-SL:HPUT(X* 
8.Y'8)-((X*Z)'8.Y*8+7).4:GOTO420 

'SHIFT LEFT ARROW 
445 IFY»-CHRS(13)THENP0KE282.255 
:RETURN 

450 IFY*-CHRJ(8)AND LEN(Z$)-0THE 
NX-SL:G0T0425 'LEFT TAB STOP FOR 

CURSOR 
455 IFY»-CHR»(8)AND LEN(Zt)>0THE 
NZJ-LEFTJ(Z».LEN(ZJ)-1):HPUT((X- 
8)-8.Y*8)-(X*B.Y-8*7).4:HC0L0RFG 
:X-X-l:G0TO425 'LEFT ARROW 
460 ZJ-ZS+YS 

465 IFLEN(Z$)>Z THEN470ELSEHCOLO 
RFG: HPRINTI X. Y) ,Y$:X-X»1 
470 IFLEN(ZJ)>Z THENZS-LEFT*(Z» . 
Z):HPRINT(36.Y)." " 
476 G0T0425 

480 '**» ELIMINATE BRAIN HALFUNC 
TION! 

485 HCOLOR0:HPRINT(16.23)."ARE Y 
OU SURE YOU WANT TO "+K*+" "+P$( 
B)+"? [Y/N]":POKE135.0 
490 XJ-INKEY*:!FXJ-""THEN490 
495 IFXS-"Y"TH£NG0SUB345:IFPJ(2) 
-"" AND AR-6THENRETURN ELSEIFAR- 
4THENRETURN ELSEG0SUB535: RETURN 
500 IFX*-"N"THENGQSUB345:GQSUBS5 
5:GOSUB535:GOT0135 ELSEPOKE135.0 
:GOTO490 

505 '*** ELIMINATE IGNORANCE ATT 
ACK! 

510 HCOLOR0:HPRINT(16.23)."ARE Y 
OU SURE YOU WANT TO NAME THIS DI 
SK? !Y/N]":POKE135.0 
515 X»-INKEY«:IFXt-""THEN515 
620 I FX»-"Y"THENG0SUB345 : GOSUB53 
5: RETURN 

525 I FX»-"N"THENG0SUB345 : G0SUB53 
5:G0T0135 ELSEPOKE135.0:GOTO515 
530 '**« INVERT 4 REINVERT COMMA 
ND LINE 

535 IF AR-1THEN X-15: Y-21 :Z-20 E 
LSEIFAR-2THEN X-26:Y-32:Z-20 ELS 
EIFAR-3THEN X-37:Y-43:Z-20 ELSEI 
FAR-4THEN X-48: Y-54: Z-20 ELSEIFA 
R-5THEN X-59:Y-65:Z-20 
540 IFAR-6THEN X-15:Y-21 :Z-21 EL 
SEIFAR-7THEN X-26:Y-32:Z-21 ELSE 
IFAR-8THEN X-37 :Y-43:Z-21 ELSEIF 
AR-9THEN X-48:Y-54:Z-21 
545 HGET(X*8-4.Z*8)-(Y-8-t3.Z-8+7 
).2:HPUT(X*8-4.Z*8)-(Y-8*3.Z-8*7 
1.2. NOT: RETURN 

550 '*** RESET FILE NAME FIELD 
555 HGET(RX.AL'8)-(RY.AL«8+7).2: 
HPUT(RX.AL*8)-(RY.AL«8*7).2.N0T: 
RETURN 

560 '*** DUMP FILENAME TO TEMPOR 
ARY BUFFER SO MEMORY CAN BE RE-E 
STABLISHEO WITH CLEAR200 AND PCL 
EAR4 

565 V-1536:F0RI-1T012:U-ASC(MID$ 
(P*(B).I.1)):P0KEV.U:V-V+1:NEXT: 
IFF(B)-0 OR F(8)-2THENG0SUB915:G 
0SU8925: RETURN ELSERETURN 
670 '*** RETRE1VE FILENAME FROM 
BUFFER 

575 F0RI-1536T01547:PJ(B)-P*(B>-* 
CHRJ(PEEK(I)):NEXT:HBUFF0:DNJ-": 
"+CHRS(PEEK(235)*48): RETURN 
580 '*** RUN A FILENAME 
586 IFF(6)-0THENGOSUB485:WIDTH32 
: GOSUB870 : RGB : GOSUB605 : G0SUB565 : 
CLEAR200:PCLEAR4:GOSUB575:POK£65 
496.0:LOAD PJ(B)*DNJ.R 
590 1FF(B)-2THENG0SUB485:WIDTH32 
:GOSUB870 : RGB : GOSU8605 : G0SUB565 : 
CLEAR200:PCLEAR4:GOSUB575: PRINT: 
PRINT"IF YOU GET A ?SYNTAX ERROR 

JUST TYPE: EXEC TO EXECUTE THE 



DELPHI- The $1 per tar online solution! 



DELPHI'S 20/20 Advantage Plan sets the standard for online value: 
20 hours for only $20, for all the services you want! 

• Thousands of files to download. 

• Chat lines with hundreds of participants. 

• Worldwide e-mail. 

• Hobby and computer support groups. 

• Multi-player games. 

• Local access numbers 
in over 600 cities and towns. 



Trial Offer: 5 hours for $5! 

Try DELPHI at $1 per hour. Join today and get 5 hours of evening and weekend 
access for only $5. If you're not satisfied, simply cancel your account before the 
end of the calendar month with no further obligation. Keep your account active 
and you'll automatically be enrolled in the 20/20 plan for the next month. 

1. Via modem, dial 1-800-365-4636. 

2. When connected, press RETURN once or twice. 

3. At Password, enter RB55 

Questions? Call 1-800-695-4005. 

Rates apply for evening and weekend access from within the mainland US. There is a one-time enrollment fee of $19 
when you join the 20/20 Advantage Plan. Further details are provided during the online registration. 





DELPHI is a service of 

General Videotex Corporation 

1030 Massachusetts Avenue 

Cambridge, MA 02138-5302 

800-695-4005 • 617-491-3393 



22 July 1992 



THE RAINBOW 



FUE.":PRINT:POKE65496.0:LOADM P 

J(B)+DNJ:POKE65344,0:£XEC 

595 IFF(B)-1THENHCOLOR0:HPRINTI1 

5, 22). "You cannot execute a data 

f 11 e ! " : S0UND2 , 20 : F0RI-1TO4 : GOSU 
8355:NEXTI:G0SUB345:G0SUB555:G0S 
UB53S:G0T0135 

600 IFF(B)-3THENHCOIOR0:HPRINT(1 
5. 22). "You cannot execute a text 

editor source f11e!":5OUND2.20: 
F0RI-1T04:G0SUB355:NEXTI:G0SUB34 
5 : GOSU8555 : G0SUB535 : G0T0135 
605 PRINT"RUNNING: "P»(B)+0N»:GO 
SU8915:P0KE41598.3:P0KE41599.3:R 
ETURN 

610 '*** LOAD A FILENAME 
615 IFF(B)-0THENGOSUB485:WIOTH32 
: GOSUB870 : RGB : G0SUB635 : GOSUB565 : 
C LEAR200 : PCLEAR4 : GOSUB57 5 : P0KE65 
496.0:LOAD P$(B)+DN* 
620 IFF(B)-2THENG0SUB485:WI0TH32 
: GOSUB870 : RGB : GOSUB635 : GOSUB565 : 
CLEAR200:PCLEAR4:GOSUB575:POKE65 
496.0:LOADH Pt(B)*0NS:P0KE65344. 
0:END 

625 IFF(B)-1THENHCOLOR0:HPRINT(1 
5. 22). "You cannot load a data fl 
le!":SOUND2.20:FORI-lTO4:GOSUB35 
5 : NEXT I : GOSUB345 : GOSUB555 : GOSUB5 
35:GOT0135 

630 1FF(B)-3THENHCOLOR0:HPRINT(1 
5. 22). "You cannot load a text ed 
itor source fi le!":SOUND2.20: FOR 
I-1T04 : G0SUB355: NEXTI : GOSUB345 : G 
OSUB555:GOSUB535:G0T0135 
635 PRINT"L0AD1NG: "P$(8)+DN$:G0 
SUB915:P0KE41598.3:P0KE41599.3:R 



ETURN 

640 '*»* RENAME A FILE 
645 HCOLOR0:HPRINT(19.22)."NEW F 
ILE NAME: . " :HLINE(272. 1 

84)-(335.184).PSET:HLINE(343.184 
><366,184).PS£T:HPRINT(47.22)." 
or hit [ENTER]":POKE1024.34:POKE 
1025. 22 :POKE1026. 8: POKE1027.0 
650 GOSUB420:IFZ*-""THENGOSUB345 
:G0SUB555:G0SUB535:G0T0136ELSEW» 
-Z» 

655 HCOLOR0:HPRINT(42.22).".":PO 
KE1024.43:POKE1025.22:POKE1026.3 
:POKE1027.0 

660 GOSUB420:IFZ$-""THENGOSUB345 
:G0SUB555:G0SUB535:G0T0135 
665 HCOLORl:HLINE<120.184)-(460. 
184).PSET:G0SU8485:YS-W$+STRINGS 
'(8-LEN(Wt).32)+"."+ZS:IFY$-P»(B> 
THENHCOLOR0:HPRINTC15.22)."THE N 
EW NAME MUST NOT BE THE SAME AS 
THE OLD NAME!":POKELO.0:FORT-1TO 
3000:NF.X1:POKEHI.0:GOSUB555:GOSU 
B345:GOT0135 
670 POKELO.0:RENAME PJ(B)»DNS TO 

Y»+DNJ:POKE65344.0 
675 POKEHI.0:GOSUB345:GOSUB335:G 
0SUB245:G0SU8215:G0SUB275:G0T013 
5 

680 ■*** COPY A FILE 
685 GOSUB485:HCOLOR0:HPRINT(15.2 
2). "What is the target drive? 0. 
1.2.3 

690 EXEC44539:Z-PEEKU35):IFZ<48 
ORZ>51THEN690ELSE SS-" :"+CHRJ(Z) 
: S-Z -48: DN-PEEKI235 ) : ON*-" : "+CHR 
» ( DN+48) : GOSUB535 : GOSUB345 



695 IFPEEK(41602)O23THENPOKELO. 

0:COPY P»(B)+DN» TO PS(B)»S1:P0K 

EH I ,0:POKE235.DN:POKE65344.0:GOS 

UB555:GOSUB715:G0T0135 'CHECK FO 

R AD0S3 

700 GOSUB710:GOSUBS80:WIDTH80:CL 

S6:CMP:PALETTE3.36:LOCATE0.9:ATT 

R5 . 3 : PRI NTSTRING$( 31 . 32) : :ATTR6 . 

5:LOCATE0.11:ATTR5.2:PRINTSTRING 

$(31.32);:ATTR6.5:LOCAT£0.10:ATT 

R5.3:PRINT" "::ATTR2.1:PR1NT" CO 

PYING "PS(B)»DNS" TO"S""::ATTR5. 

2: PRI NT" "j 

705 ATTR6,5:P0KE65428.32:P0KE654 

29.2:LOCATE0.12:ATTR3.5.B:POKELO 

.0:COPY P$(B)+ONt TO PS(8HS»:P0 

KEHI.0:POKE65344.0:POKE235.ON:PO 

KE59078.33:CLS:GOSUB880:HSCREEN3 

: RGB : POKE59078 . 141 : GOSUB555 : GOSU 

B715:P0KE65428.126:P0KE65429.126 

:GOT0135 

710 POKE57414.9:POKE63105.32:POK 

E63112.38:POKE63113.0:POKE63601. 

64:POKE63605.37:POKE63606.192:RE 

TURN 'CONVERT 80X24 HIRES TEXT S 

CREEN INTO 32X24 HIRES TEXT SCRE 

EN (C) APRIL 1989 TIM RITTER 

715 POKE57414.21:POKE63105.80:PO 

KE63112.47:POKE63113.0:POKE63601 

.160:POKE63605.46:POKE63606.96:R 

ETURN 'RESET 32X24 HIRES TEXT SC 

REEN TO 80x24 HI RES TEXT SCREEN 

720 '*»* KILL A FILE 

725 0N-PEEK(235):DNS-":"+CHRJ(48 

*ON):GOSUB485:POKELO.0:KILL P$(B 

)+DNJ:POKEHI.0:POKE65344.0: GOSUB 

335:GOSUB245:GOSU8215:GOSUB275:G 



OT0135 

730 '"• SCAN A FILE 

735 GOSUB485:GOSUB555:POKEHI.0:G 

OSUB880:GOSUB790:WIDTH80:CLS6:CH 

P : DN»-" : "+CHRH PEEK! 2351+48) 

740 LOCATE2.0:ATTR7.6:PRINTSTRIN 

GS(28.42):L0CATE2.1:PRINT"* "::A 

TTR6.5:PRINT"SCANNING: "P$(B)DNS 

;:ATTR7.5:PRINT' *": LOCATE2.2 : PR 

INTSTRING$(28.42) 

745 LOCATE32.0:ATTR7.5:PRINTSTRI 

NGS ( 30 . 42 ) : : LOCATE32 . 1 : PRI NT"* " 

;:ATTR6.5:PRINT"SPACE-PAUSE - EN 

TER-RETURN" : : ATTR7 .5 : PRINT" *" : : 

LOCATE32.2:PRINTSTRING$(30.42): 

750 L0CATE16.4:ATTR2.1:PRINT"YEL 

LOW-VALUE LESS THAN ASCII 32": :A 

TTR0.5:IOCATE15.5:ATTR3.2:PRINT" 

BLUE-VALUE GREATER THAN ASCII 12 

7"::ATTR3,5:PRINT:PR1NT 

755 OPEN" I". fll.PHBHDNt: CLOSE :0 

PEN"D" .#1 . PJ( B 1+ONS . 1 : P0KE65344 . 

0:FIELD#1.1AS AJ: FORX-1T0L0FC 1 ) : 

GET#1:IFASC(A$)-13THENATTR3.5:PR 

INT:ATTR3,6:GOTO770 

760 IFASC(AJK32THENATTR0.1:PRIN 

T" ";:ATTR3.5:GOTO770 

765 IFASC(AJX128THENATTR3.5:PRI 

NTAt; ELSEATTR3.2:PRINTA1;:ATTR3 

.5 

770 XJ-INKEYS:IFXJ-CHR*(32)THENP 

OKELO.0:EXEC44539:POKEHI.0:POKE1 

35.0 

775 IFXJ-CHRS(13)THENPRINT:CL0SE 

#l:G0TO785 

780 NEXT:POKE65344.0:ATTR3.5:PRI 

NT:PRINT:CL0SEJ1:L0CATE14.23:ATT 



Feature Prcigram 












J 




A 




recently became interested in OS-9 

(Level II) and have been playing with 
the various ways OS-9 allows you to work. 
Since my Disk BASIC word processor won't 
work with OS-9, 1 had to find another way 
to write notes and letters (I don't yel have an 
OS-9 word processor). I use OS-9's bu1 1 d 
command on an 80-by-24 text screen for 
this purpose. 

The build command included with OS- 
9 allows you to create text files on disk. To 
use this tool, enter build followed by a 
filename. OS-9 responds by printing a 
question mark at the beginning of the next 
line. This tells you bu i 1 d is ready for you to 
enter text; just type what you want and press 
ENTER at the end of the line — another 
question mark appears allowing you to enter 
another line. Al the end of the first line and 
periodically thereafter, OS-9 saves on disk 
(in the current data directory) the text you 
have entered. While the disk is spinning. 
OS-9 cannot receive characters from the 
keyboard — keep this in mind while enter- 
ing your text. When you have entered the 
last line of text, press ENTER by itself on a 
new line and OS-9 closes the file, reluming 
you to the OS9: prompt. 

It is important lo note thai bui Id docs 
not support any form of editing. If you 
notice a mistake on a line you've already 



entered, you have to start the whole file 
over or use an editor to fix the mistake. You 
can use OS-9's edit command for this 
purpose. 

After you have finished building a text 
file, you can display it onscreen by entering 
1 ist followed by the filename. If the text is 
longer than the screen and happens to scroll 
off the top. enter tmode pause lo turn on 
OS-9's page-pause feature. To get a 
hardcopy of the text, make sure your printer 
is online and enter 

1 \ st filename >/p 

The > symbol tells OS-9 to redirect the 
oulpul of the 1 i st command to Device /p. 
the printer. 

When I print program listings wilh my 
CoCo, I like Ihc printout to be double- 
spaced. Rather than fool with the linefeed 
settings on my printer (and from within OS- 
9, using tmode). 1 wrote a basicw program 
lo handle the spacing for me. To use Skip, 
first enter the listing as shown using bui 1 d 
or BASiCOQ's editor. Then, while in BASIC09. 
load the program and run it. You'll be 
prompted for the name of the program 
listing you want to print. That's all there is 
toil. 

I also like my BASIC09 program listings 



to be formatted (indented and with offsets*. 
To do this. I load the program in question 
into basicxw and enter list >newfilename, 
replacing newfilename with the new name 
under which I want the "listing" file saved. 
(Plain BAS1C09 source-code files arc unfor- 
matted — you may want to keep both cop- 
ies of the listing.) Then I run Skip to print 
the listing. 

Skip is useful for more than just printing 
program listings. In fact, the program can 
be used to double-space any standard text 
file. Just enter the name of the file when 
Skip prompts you for the program name. 



The program listing for Skip is short and 
pretty easy to follow. Feel free to modify 
the program to suit your individual needs. 



John Musumeci is a retired TV repair- 
man whose sole hohhy for the past eight 
years has been working with and program- 
ming the Color Computer. He may be con- 
tacted at 103-57 104 Street, Ozone Park, 
NY 114 17, (718) 738-02 ]2. Please include 
an SASE when requesting a reply. 
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The Listing: skip.D09 

PROCEDURE skip 

0000 (* Written by John Musumeci 

001B DIM disk.printer:BYTF 

0026 DIM program:STRlNG[160] 

0032 DIM groupl.group2:STRING[80] 

0042 SHELL "display 0c" 

0050 PRINT "Adjust Printer "aper." 

0069 OPEN ((printer. '7p":WRlTE 

,'. FOR x-1 TO 4 \ SHELL "display 0a" \Nt<l > 
00A1 INPUT "What 1s name of program:". program 



00C1 

00F0 

00F8 

0106 

0123 

012F 

013B 

0145 

014F 

01 6A 

0171 

0181 

0183 

0195 

01B3 

01C3 

01C5 

01D6 

01E3 

01E7 

01E9 

01EF 

01F3 

01 F9 

0207 

0209 20 

0223 

0233 

0235 

0247 

0265 

0275 

0277 

027B 30 

0290 

02AA 



10 



FOR x-1 TO 5 \ SHELL "display 0a >/p" \NEXT x 

aa-5 

SHELL "display 0c" 

PRINT "PRINTING " 

OPEN «disk.program:REAO 
WHILE E0F(#disk)OTRUE DO 

READ ((disk, program 

l-LEN(program) 

g roup 1-L EFTS (prog ram. 80) 

PRINT Sprinter. groupl : \aa-aa+l 

IF aa-60 THEN GOSUB 30 

ENDIF 

SHELL "display 0d >/p" 

SHELL "display 0a >/p" \aa-aa+l 

IF aa-60 THEN GOSUB 30 

ENDIF 

group2-RIGHTt(program.l -80) 

IF 1>80 THEN 
GOTO 20 

ENDIF 

REM 
ENDWHILE 
CLOSE #disk 
SHELL "display 0c" 
END 

PRINT ((printer. group2: \aa-aa+l 
IF aa-60 THEN GOSUB 30 
ENOIF 

SHELL "display 0d >/p" 
SHELL "display 0a >/p" \aa-aa+l 
IF aa-60 THEN GOSUB 30 
ENOIF 
GOTO 10 
FOR x-1 TO 12 

SHELL "display 0a >7p" \aa-5 
NEXT x \ RETURN 
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R4.5:PRINT"PRESS ANY KEY TO RETU 

RN TO THE MENU"::EXEC44539 

786 POKEHI.0:POKE65344.0:CLS:GOS 

UB888 : POKE59878 . 33 : HSCREEN3 : GOSU 

B795:RGB:POKE59B78.141:GOT0135 

798 P0KE57414.19:P0KE631B5.64:P0 

KE63112.44:POKE63601.126:POKE636 

05.43:POKE63606.128:POKE63724.64 

:RETURN 'CONVERT 80 X 24 HIRES T 

EXT SCREEN INTO 64 X 24 HIRES TE 

XT SCREEN (C) APRIL 1989 TIM RIT 

TER 

795 POKE57414.21:POKE63105.80:PO 

KE63112.47:POKE63601.160:POKE636 

0S.46:POKE63606.96:POKE63724.80: 

RETURN 'RESET 64x24 HI -RES TEXT 

SCREEN TO 60x24 HI -RES TEXT SCRE 

EN 

800 '*** RENAME DISK (NOTE: YOU 

MAY PRESS ENTER TO AVOIO GIVING 

THE DISK A NAME. THE FIRST CHARA 

CTER MUST NOT BE A SPACE.) 

805 HCOLOR0:HPRINT(14.22)."Disk 

name: ":HLINE( 200. 184) -(407. 184). 

PSET:HPRINT(52.22)."or hit [ENTE 

R]":POKE1024. 25: POKE1025. 22: POKE 

1026.26:POKE1027.0 

810 GOSUB420:IFZ»-""ORLEFTS(2t.l 

>-CHR*(32)THENG0SUB535:G0SUB345: 

G0T0135 

815 HCOIOR3:HUNE(208.184)-(415. 

184) . PSET :GOSUB510: YWS+STRI NG» 

(26-LEN(Z*).32)+STRINGM102.2S5) 

:DN-PEEK(235):POKELO.0:DSKO$DN.l 

7.1.YJ.STRING$(128.255):POKEHI.0 



:POKE65344.0:GOSUB345:GOSUB215:G 

OT0135 

820 '*•• DIRECTORY OF FILENAMES 

825 GOSUB355:GOSUB535:GOSUB880:G 

OSUB710:HIDTH80:CMP:CLS6:GOSUB32 



830 ATTR0. 5: PRINT"*-*" IS:: LOCATE 

29. 0: PRINT"***" :ATTR1. 5: PRINT" 

** DIRECTORY FOR DRIVE #":: PRINT 

USING"«":DN;:PRINT" *'":PRINT:AT 

TR7.5:PRINT" SPACE-PAUSE - OTHE 

R-C0NT1NUE":ATTR6.5 

836 POKE41590.19:POKELO.0:DIRDN: 

POKEHI.0:IFPEEK(41602)O23THENPR 

INTUSING"GRANS - »";GR 

840 POKE65344.0:POKE41590.32:ATT 

R4.5:L0CATE3.23:PRINT"PRESS ANY 

KEY FOR THE MENU" : : POKE136.0 

845 A-443847:B-443897 

850 LP0KEA.(LPEEK(A)+64)AND127:L 

P0KEB.(LPEEK(B)+64)AND127:IFINKE 

YJO""THEN865ELSEA-A*2:B-B-2:IFA 

<443873THEN858 

855 A-443847:B-443897 

860 LP0KEA.(LPEEK(A)-64)AND127:L 

P0KE8.(LPEEK(B)-64)AND127:IFINKE 

Y$<>""THEN865ELSEA-A-»2:B-B-2:IFA 

<443873THEN860ELSE845 

865 POKE59078.33:POKEHI,0:CL5:GO 

SUB880 : GOSUB715 : HSCREEN3 : RGB : POK 

E59078.14I:GOTO135 

870 A$-"18361 1076331093800180063 

00180038186409366327453800180063 

00180038":A-58964:FORI-1TOLEN(A* 

)STEP2:B*-MID»(A$,I .2) :C-VAL(B$) 



:POKEA.C:A-A+l: NEXT: RETURN 'RESE 
T RGB AND CMP PALETTES TO STARTU 
P VALUES. 

876 '*** SET ALL PALETTES TO 'BL 
ACK'. THIS WILL PREVENT STRANGE 
COLOR FLASHES ON THE SCREEN WHEN 

SWITCHING FORM GRAPHICS SCREEN 
TO TEXT SCREEEN AND RGB TO CMP A 
ND BACK AGAIN. 

880 FORI-0TO15:PALETTEI.0:NEXT:P 
OKE65434.0:RETURN 
885 '*** USE WIDTH32 AS A TEMPOR 
ARY 512 BYTE BUFFER TO DUMP ORIG 
INAL VALUES OF CHRK92) 8 CHR$(1 
23) ON HSCREENS. NO MATTER WHAT 
FONT YOU ARE USING IN THIS PROGR 
AM THEY WILL ALWAYS BE RESET WIT 
H THE CORRECT VALUES. 
890 A-62077:D-33000:FORI-1TO8:C- 
PEEK(A): POKED. C:A-A+1:D-D+1: NEXT 
:A-62325 : D-33009 : F0RI-1T08 :C-PEE 
K(A): POKED. C:A-A»1 :D-D+1 :NEXT:RE 
TURN 

895 '*** CHANGE CHR$(92) TO RANO 
OM GRAPHICS CHARACTER AND CHRK1 
23) TO BOLD RIGHT ARROW. THERE 1 
8.5 TRILLION DIFERENT POSSIBILIT 
IES FOR CHRt(92). NOTE: CHRK92) 

PRINTS THE GRAPHICS ON BOTH SID 
ES OF THE SCREEN. 
900 FORI-62077TO62084:A-RND(256) 
: I FA-266THENPOKE 1.0: NEXT: RETURN 
ELSEP0KEI.A:NEXT:P0KE62325.8:P0K 
E62326.12:P0KE62327.126:P0KE6232 
8.127:POKE62329.126:POKE62330.12 



: P0KE62331 .8 : P0KE62332 . : RETURN 

90S •... reset CHRJI92) S CHRK1 

23) 

910 A-62077:D-33000:FORI-1TO8:C- 

PEEK(D):POKEA.C:A-A+l:D-D+l:NEXT 

: RETURN 

915 A-62325 : D-33009 :F0R1-1T08 :C- 

PEEK(D):P0KEA.C:A-A+1:D-D-U:NEXT 

: RETURN 

920 '*** RESET ADDRESSES 33000-3 

3016 

925 A-33000:POKEA,69:POKEA-H.88: 

POKEA+2 .84 : POKEA+3 , 69 : POKEA-M . 78 

:P0KEA*5.68:P0KEA*6.69:P0K£A+7.6 

8 : POKEA'8 . 32 : POKEA+9 . 67 : POKEA+10 

.79:P0KEA*11.76:P0KEA+12.79:P0KE 

A+13.82:P0KEA+14.32:P0KEA-H5.66: 

P0KEA-H6.65:RETURN 

930 '*** IF YOU WOULD LIKE TO GE 

NERATE A TEST DISK WITH 68 FILEN 

AMES ON IT. FORMAT A DISK WITH D 

SKINiO ANO DELETE ALL LINE NUMBE 

RS IN THIS PROGRAM EXCEPT THE NE 

XT LINE AND RUN IT 

936 F0R1-1T068:PRINT"FILE "+RIGH 

TS(STR$(I).2):SAVE"FILE "+RIGHTS 

(STRt(I).2):NEXT:END 

940 '*** LEAVE PROGRAM 

945 POKE57556.56:HBUFF0:POKE5755 

6.52:HBUFF0:WIDTH40:GOSUB915:GOS 

UB925 : GOSUB870 : CLS1 1 : ATTR3 . 2 : POK 

E41590.32:POKE41598.3:POKE41599. 

3:POKELO.0:CLEAR200:RGB:NEW 



Listing 2: STRDM0D3 

1 'STRDM0D3 - SCREEN FONT 

2 'BY DWIGHT L. STEGALL 

3 'COPYRIGHT (C) 1992 

4 "BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 

10 CLS:PRINT"POKING STRDH0D3 FON 

T ":PRINT:PRINT"WRITTEN BY: 

OWIGHT L. STEGALL":FORI-61597T06 
2364 : READAS : POKEI . VAL( "SH"+A» ) : N 
EXT 

15 SAVEM"STRDM0D3". 61597. 62364. 6 
1597 

20 CLEAR200:NEW 

25 DATA 00.00.00.00.00.00.00.00. 
18.3C.3C.18.18.00.18.00.6C.6C.6C 
. 00. 00. 00. 00. 00. 36. 36. 7F. 36. 7F. 3 
6.36.00.18,3E.58.3C.1A.7C.18.00. 
60.66.0C.18.30.66.06.00.38.6C6C 
.3A.6E.66.3F.00.18.18 
30 DATA 30. 00. 00. 00. 00. 00. 0C. 18. 
30.30.30.18.0C.00.30.18.0C.0C.0C 
.18.30.00.00.66.3C.FF.3C.66.00.0 
8. 18. 18, 7E. 18. 18, 00. 00. 00. 00. 
J. 18. 18. 30. 00. 00. 00. 7E. 

.00.00.00,00,00.00,00 

35 DATA 00, 18. 18, 00, 00. 06, 0C. 18, 
30.60.00.00.3C.66.6E.7E.76.66.3C 



. 00, 18. 38. 18. 18. 18. 18. 3C . 00. 3C. 6 

6,06.3C.60.60.7E,00.3C.66.06.1C. 

06.66.3C.00.0E,1E.36.66.7F,06.06 

.00.7E.60.7C.06.06.66 

40 DATA 3C.00.3C.66.60.7C.66.66, 

3C.00.7E.06.0C.18.30.30.30.00.3C 

.66.66.3C.66.66.3C.00.3C.66.66.3 

E. 06. 66. 3C. 00. 00. 18. 18. 00. 00. 18. 

18. 00. 00. 18. 18. 00. 00. 18. 18. 30. 0C 

. 18, 30. 60. 30. 18. 0C. 00 

45 DATA 00. 00. 7E. 00. 7E. 00. 00. 00. 

30.18.0C.06.0C.18.30.00.3C.66.06 

.0C.18.00.18.00.3C.66.06.36.6E.6 

E.3C.00.18.3C.66,66.7E.66.66,00. 

7C.66.66.7C.66.66.7C.00.3C.66.60 

.60.60.66.3C.00.7C.66 

50 DATA 66. 66. 66. 66. 7C. 00, 7E, 60, 

60. 78. 60. 60. 7E. 00. 7E. 60. 60. 78. 60 

.60.60.00.3C.66.60.6E.66.66.3C.0 

0. 66. 66. 66. 7E. 66. 66. 66. 00. 3C. 18. 

18. 18. 18. 18. 3C. 00. 06. 06. 06. 06. 66 

.66.3C.00.66.6C.78.70 

65 DATA 78. 6C. 66. 00. 60, 60. 60. 60. 

60.60.7E.00.66.7E.7E.66.66.66.66 



.00.66.66.76.7E.6E.66.66.00.3C6 

6.66.66.66.66.3C.00.7C.66.66.7C. 

60.60.60.00.3C.66.66.76.7E.6E.3E 

.03.7C.66.66.7C.78.6C 

60 DATA 66. 00. 3C, 66. 60. 3C. 06. 66. 

3C. 00. 7E. 18. 18. 18. 18. 18. 18. 00. 66 

. 66. 66. 66. 66. 66. 3C. 00. 66. 66. 66. 6 

6.66.3C.18.00.66.66.66.66.7E.7E. 

66. 00. 66. 66. 3C. 18. 3C. 66. 66. 00. 66 

. 66. 66. 3C. 18. 18. 18. 00 

65 DATA 7E.06.0C,18.30,60.7E,00. 

3C. 30. 30. 30. 30. 30. 3C. 00. 00. 00. 00 

.00.00.00.00.7E.3C.0C.0C.0C.0C.0 

C. 3C. 00. 18. 3C. 66. 00. 00, 00. 00, 00. 

00.18.30.7E.30.18.00.00.18.3C.7E 

.18.18.18.18.00.00.00 

70 DATA 3C.06.3E.66.3B.00.60.60. 

7C.66.66.66.7C.00.00.00.3C.66.60 

.66.3C.00.06.06.3E.66.66.66.3E.0 

0.00.00.3C.66.7E.60.3E.00.0E.1A. 

18.3C.18.18.18.00.00.00.3E.6E.6E 

.36.06.3C.60.60.7C.66 

75 DATA 66.66.66.00.18.00.38.18. 



18. 18. 3C. 00. 06. 00. 06. 06. 06. 66. 66 

.3C.60.60.6C.78.70.78.6C.00.38.1 

8. 18, 18. 18. 18. 3C. 00. 00. 00. 36. 7F. 

6B. 63. 63. 00. 00. 00. DC. 66. 66. 66. 66 

. 00. 00. 00. 3C. 66. 66. 66 

80 DATA 3C.00.00.00.7C.66.66.7C. 

60. 60. 00. 00. 3E. 66. 66. 3E. 06. 06. 00 

. 00. 5C. 66. 60. 60. 60. 00. 00. 00. 3E. 6 

0. 3C. 06. 7C. 00. 00. 30. 78. 30. 30. 36. 

1C . 00 , 00 . 00 . 66 . 66 . 66 . 66 . 38 .00 . 00 

.00.66.66.66,30.18.00 

85 DATA 00.00.63.63.6B.7F.36.00. 

00.00,66,30.18. 30.66,00.00.00. 66 

.66.66.3E.06.3C.00.00.7E.0C.18.3 

0.7E.00.08.0C.7E.7F.7E.0C.08.00. 

08.18.3F.7F.3F.18.08.00.08.1C.3E 

.7F.1C.1C.1C.00.1C.1C 

90 DATA 1C.7F.3E.1C.08.00.FF.FF. 

FF.FF.FF.FF.FF.FF.0D.E6.10.27.F3 

.4C.10.21.0C.59.8E.00.00.C6.01 




PRICES SLASHED ON ALL 

ADOS PRODUCTS 

LIMITED TIME ONLY! 

EXTENDED ADOS-3 S29.95 

<»«0.^« ADOS-31 

0*10 (MMimo COOK 0->s»; SS 

AoajV"' to- C0"«0l««S HOtrg 26 pn ROM MCkOt S10 

ADOS-3 S24.95 

EXT. ADOS-3 PLUS ADOS-3 S49.95 

SMARTWATCH REAL-TIME CLOCK ....$29.95 

UWO* i-i COMroMw *tl JB pm P.OW soC*l ©• >- "CM C*C» 
SIC incua*sOS»li*v#llH1""V C.I ADOS3 0'vO- SS**o 
cw S'OwcAiaioiy 

ADOS FOR CoCo 1 and 2 S14.95 

— At AD3S tontaro ix sold on dn< will comguring wl n» mat 
OOOHal* *" £PP JMap e O—a-y ',r l"to<mal'0" i fovcoc lot 
Ming an EPROM OjmaO by mal lo- SiS 

— So* on' owiv joi ana ,«•«,«* n j.it, <9AT ano Ocmoo* 1989 
Pa -&:--, a-^ aOl 0" itu-l-V lot pioOXI OWO PH©"i 

SPECTROSYSJEMS/ 



SUPPORT FOR 
OSK/OS9! 

Featuring software from: 

•IMS* 

• Sub-Etha • 

• Bob van der Poel • 

• Public Domain 0SK/0S9 • 

• More Coming! • 

Send long SASE for PD list 
(state OSK or 0S9) 



VED/OSK - $39.95 
CheckBook/OSK- $29.95 



Blackhawk Enterprises 

P.O. Box 10552 

Enid, OK 73706-0552 

405-234-2347 9am-1pm CST 



TETRIX 

Falling block puzzle for 1-3 plays*. 32K DECB 

PYRANIM 

Speed & Stralegyl 
Based on CUnese game d N1M. 32K DECB 

CUCKOO 

Teach young ones now to read a clock lace. 32K DECB 

KIP-DRAW 

Colorful text & graphics. 
Smple enough lor pre-school. 32K 0EC3 

DISK JOCKEY 

Tame your disks! Features lie manager, long file names, 
notepad and calciiator. 128&12K DECB 

$19.95 each, all tour for $39.00! 
($2 S&H. CT residents add 6% tax) 

The Gibralter Software Co. 

65 Bluff Avenue 
Rowayton, CT 06853 



MSWI Thm CoCo Family Ketordur 

Genealogy data system. Prim & store all recordsl Requres 

drive » 1, 80 column moriior, 128K OECB - $24.95 

kttr-TKAKt General Ledger. Double entry 

small business system. 32K DECB - $24.95 

ACCOUNTS RECEIVABLE lor above - add $10 

BOBS MACK Graphic Machine 

Create base graphics tor your programs with 

a joystick. 32K DECB - $19.95 

OMSCA FILS Dalabanm Up to 16 fields. 255 

char. Menu drivenl 32K DECB - $24.95 

FAUNA SyttcmM 

904 2nd Ave., Warner Robins, GA 31098-1029 
912-328-7859 -Add J1.50 S1H (GA add 5% tax) 



Would you Hkm your ad 

here? Very reamonable 

ratesi Choose thh the, 

above, or at loft, tall or 

write FAUNA 

(Kalnbow approvedl) 
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Number Cruncher is a simple yet addic- 
tive game. Points are scored by steer- 
ing a "cruncher" over scrolling numbers. 
which are worth their face value. For ex- 
ample, if the cruncher passes over a 5. five 
points are scored. Obviously the goal is to 
get as many points as possible during a 
fixed amount of time. If you beat the previ- 
ous high score, you are treated to u special 
high-score screen. 

Number Cruncher works on any CoCo 
with at least 16K nnd Kxtcnded BASIC. 
After entering the listing, run the program 
and the title screen appears. To start the 
game, press the space bar - watch out. 
(hough, because the numbers start scrolling 
down the screen pretty quickly. Use the left 
and right arrows to control the cruncher, 
which appears at the bottom of the screen. 
(Hold the either key down for continuous 
movement in that direction.) 

You can tell when points arc scored by 
the sound and the number being written on 
the right side of the screen. A score of I (X) 
is good, and 120 is excellent. Luck plays a 
big part in scoring well, although some 
strategy is useful (should you go for the 
high numbers, or just chase as many num- 
bers as possible?). 

The program is fairly self-explanatory, 
but I want to point out a few items. Line 70 




fl 



J 




creates the moving border on the title screen 
by printing different segments of U V Lines 
140 and 150 print the cruncher and scroll- 
ing numbers, respectively. 

The arrow keys arc checked in two ways: 
lines 180-190 determine if either key is 
being held down, and lines 2 10-220 check 
for brief presses of the keys. Lines 270-320 
provide the high-score display; a Hashing 
line is displayed, then is replaced with a 
string previously read from OATA lines (460 
through 590). 

Number Cruncher is great for those who 
like to modify programs. Try including the 
high-speed poke and you'll nearly change 
the whole game because of (he speed differ- 
ence. The game rime can be increased by 
changing the value of 100 in Line 100 lo a 
higher value. A cosmetic change to the tide 
screen can be achieved by replacing Line 
430 with 

TI$-"123456":Tl$-TI$+TI$+n$*TIJ 

More complex changes include allow- 
ing optional joystick control for the 
cruncher. Making the number zero worth 
(en points would raise scores somewhat. Or 
how about having a mystery score (perhaps 
represented by a question mark) that is 
worth a random number of points? CoCo 3 



Received and 
Certified 



y£*k 
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The following products have recently 
been received by THE RAINBOW, examined 
by our staff and issued the Rainbow Seal of 
Certification, your assurance that we have 
seen the product and have ascertained that 
it is what it purports to he. 

Sink the Armada, a GUI-driven game that 
plays much like Battleship except that your 
opponent is the CoCo. Supports both Hi- 
and Lo-Rcs mouse/joystick interfaces. 
Requires a CoCo 3 with at least 256K. an 
RGB monitor, a mouse or joystick. OS-9 
Level Il.andthe wind .nt module and con- 
trol program from Multi-Vue. MV Sys- 
tems, P.O. Box 818. Arvada. CO 80001- 
081S, (303) 420-7777; $17.95. 

KWIKGEN vl.01. an OS-9 utility for 
creating and modifying the OS-9 boot file. 
Designed to he fast and easy to use, 
KWIKGEN con load an entire existing boot 
file into memory for modification. When 
finished, the user simply writes the new 
boot file back to floppy disk. Requires OS- 
9.GaIeForceEnierprises f P.O.Box66036, 
Station /■ . \ Vancouver, BC VSN 5L4, Can- 
ada, $19.95 OS. plus $4 SHI. 

Instructional and Bible Programs, a col- 
lection of seven bible and five educational 
programs/games written in basic. Included 
are Bible Scriptures. Bible Questions (I. II 
and Ml). .4 Bible Adventure. A Journey to 
the Promised Land, Vocabulary. Math, 
Homonyms. Spelling and Guess the Num- 
ber. Requires 64K and Extended BASIC 
Sebastian LaSpada. 531 Main Street, 
Dunkirk. NY 14048. 1716)366-5261: $10. 

4-0 Checkers, a two-player CoCo 3 game 



that plays like checkers but uses a 3-by-3- 
by-3 grid (time is the fourth dimension). 
Offers beginner, intermediate and expert 
levels, and supports the Speech/Sound 
Cartridge and RGB or composite monitors. 
N* Johnson Software. 5830A Reinke Drive, 
Crestview. FL 32536. (904) 682-2907; in- 
troductory price is $14.95. 

The CoCo Collection, a compendium 
of 1 5 games and utilities in basic. Included 
are Blind Poker, Mind Boggier, Calendar 
Maker. Connect Four, DOS Commands, 
Hangman Junior. Indian Poker. Pair Two, 
A Day at the Races. Reach for the Money, 
Slot Machine [One and Two), Tic-Tac-Toe, 
Lock and Setup, Requires a CoCo 3 and a 
disk drive. Sheldon Parsons. P.O. Box 1 1 7. 
Notre Dame Bay. NF A0J 1A0. Canada; 
$9.95Cdn.plus$2S/H. 

CoCo Cassette #1 16. a variety of programs 
presented monthly for the CoCo 1 . 2 and 3. 
This issue contains. Chopper, an arcade 
rescue game; Richer or Poorer, a graphic 
board game: Menu Maker, for creating 
menus for your programs: The Castle, an 
arcade-style game: Help.', a dodge-the-car 
game; Baseball Card Database'. Snow Mo- 
bile, a winter-sports jumping game; Astroid 
Smash', Daffi-nition, a word game for two 
players; and DreamQuest 3, a disk-only 
CoCo 3 adventure. T&D Software. 2490 
Miles Standish Drive. Holland. Ml 49424. 
1616)399946*. $.\ 

The Rainbow Seal of Certification is 
open to all manufacturers of products 
applicable to the Tandy Color Computer, 
regardless of whether or nor those compa- 
nies advertise in THE RAINBOW. By award- 
ing the Seal, we certify the product exists — 
we have a sample copy and have examined 
it. However. this does not constitute any 
guarantee of satisfaction. As soon as pos- 
sible, these products will be forwarded to 
reviewers for evaluation. 



users could play the game on a screen of 
greater width, although this would require 
many changes in the program. 

There is much to build on with Number 
Cruncher. As long as the goal remains to 
make it to the high score display. 1 say "Go 
tor it!" 



Joseph Pendell has a degree in electri- 
cal engineering from the University of Man- 
land. In addition to programming the Color 
Computer, Joseph enjoys using the Macin- 
tosh. His hobbies include riding skaielwards 
and playing Super Nintendo. 



CoCo 3 



^ 



The Listing: hcrunch 

1 'NUMBER CRUNCHER 

2 'BY JOSEPH PENDELL 

3 'COPYRIGHT (C) 1992 

4 'BY FAL50FT, INC. 

5 'RAINBOW MAGAZINE 

30 CLEAR 1000:GOSUB 370 
40 CLS:PRINT 6 72."number"+TS+"c 
runcher":IF FIRST-2 THEN PRINT 8 
235."SC0RE";SC:PRINT 8 299. "H I G 

50 if FIRST-1 THEN PRINT S 486." 
PRESS SPACE TO START" ;: FIRST-2 E 
LSE PRINT 9 484. "PRESS SPACE TO 
PLAY AGAIN": 

60 'MOVE BORDER AROUND TITLE 
70 FOR 1-1 TO 5:PRINT 8 39.MIDM 
TI*.I.17)::PRINT ■? 71 .MIDMTIS. I 
+4.1)::PRINT 8 103.MIDMTH.6-I . 
17):PRINT 8 87. MIOJITI*. 11-1.1): 
:F0R J-l TO Z: IF INKEYSO" " THE 
N NEXT J.I:G0T0 70 
80 CLS:G0SUB 350 
90 "START THE GAME 
100 FOR RACE-1 TO 100 
110 'CHECK FOR SCORE 
120 S-PEEK(1057+X):IF S<97 THEN 
PRINT 8 511." ";:PRINT 8 506. TJ: 
:ELSE S-S-112:SC-SC+S:PR1NT 8 50 
7.LJ(S)::PRINT 8 506.T* : :S0UND S 
•20*1.1 

130 'UPDATE SCREEN 
140 PRINT 8 X.X$: 
150 PRINT 8 RNO(24>+480.CHRJ(RND 
(101+47): 

160 'CHECK IF ARROW KEYS PRESSED 
170 At-INKEYJ:IF AJO"" THEN 210 
180 IF PEEK(343)-247 THEN IF X>0 
THEN X-X-l 
190 IF PEEM3441-247 THEN IF X<2 
3 THEN X-X+l 
200 GOTO 230 

210 IF AJ-CHRM8) THEN IF X>0 TH 
EN X-X-l 

220 IF AJ-CHR»<9) THEN IF X<23 T 
HEN X-X+l 
230 NEXT RACE 

240 'IF HIGH SCORE THEN SHOW A S 
PEC1AL DISPLAY 

250 FOR 1-1 TO 250:NEXT I: IF HS- 
>SC THEN 40 

260 HS-SC:PRINT 8 511," ": 
270 FOR 1-448 TO STEP -32:F0R 
J-255 TO 143 STEP -16:PRINT 8 I. 
STRINGJ(32.J)::NEXT J.I 
288 FOR 1-32 TO 128 STEP 32: FOR 
J-255 TO 143 STEP -I6:PRINT 8 I. 
STRINGS(32.J)::NEXT J:PRINT 8 I. 
TA8U0) NPJ(I/32)::NEXT I 
290 FOR J-255 TO 143 STEP -16:PR 
INT 8 160.5TRINGJ(32.J)::NEXT J 
300 FOR 1-192 TO 288 STEP 32:F0R 




J-255 TO 143 STEP -16:PRINT 8 I 
.STRING$(32.J)::NEXT J:PRINT 8 I 
,TAB(9) HPX(I-160)/32)::NEXT I 
310 FOR J-255 TO 143 STEP -16:PR 
INT 8 320.STRINGS(32.J)::NEXT J 
320 FOR 1-352 TO 44B STEP 32:F0R 

J-255 TO 143 STEP -16:PRIHI 8 I 
,STRINGJ(32.J)::NEXT JiPRINT 8 I 
.IABI6) SPi((I-320)/32)::NEXI I 
330 FOR 1-1 TO 1000:NEXT I: GOTO 
40 

340 'INITIALIZE FOR EACH GAME 
350 X-l 2 :SC-0: RETURN 
360 'INITIALIZE 0NCC 
370 F1RST-1:HS-0:XJ-CHR»(13B)+CH 
RS(143)+CHR1(133):TS-CHRS(128) 
380 LJ(0)-"ZERO ":L*(1)-"0NE ": 
L$(2)-"TM0 ":LS(3)-"THREE":LS<4 
)-"F0UR ":LJ(5)-"FIVE " 
390 LI(6)-"SIX ":LJ(7)-"SEVEN": 
L»(8)-"EIGHT":LJ(9)-"NINE " 
400 FOR U-l TO 4: FOR Z-l TO 13:R 
EAD ZZ:NP»(U)-NP*(U)+CHR»(ZZ):NE 
XT 2.U 

410 FOR U-l TO 4:F0R Z-l TO 13:R 
EAD ZZ:HP$(U)-HP$(U)+CHR1(ZZ):NE 
XT Z.U 

420 FOR U-l TO 4:F0R Z-l TO 1B:R 
EAD ZZ:SPt(U)-SPJ<U)+CHRS<ZZ):NE 
XT Z.U 

430 FOR 1-159 TO 239 STEP 16:TU 
-TI*+CHR»(I):NEXT I :TI J-TU+TI J+ 
TU+TIS 
440 RETURN 
450 'DATA FOR "NEW" 
460 DATA 132.143.143.133,138.131 
.131.143.133.143.143.133.143 
470 DATA 133.134.143.133.138.140 
.141.143.133.142.143.133,143 
480 DATA 133.143.134.133.138.143 
.143.143.132.135.134.133.143 
490 DATA 135.143.143.135.139.131 
.131.143.135.143.143.135.143 
500 'DATA FOR "HIGH" 
510 DATA 133.143.133.139.129.143 
.137.131.134.143.133.143.133 
520 DATA 132.140.133.143.133.143 
.133,143.143.143.132.140.133 
530 DATA 133.143.133.143.133.143 
.134,143,130.143.133.143.133 
540 DATA 135.143.135.139.131.143 
.143,131,131.143.135.143.135 
550 'DATA FOR "SCORE" 
560 DATA 137.131.134.143.137.131 
.134.143.142.131.141.143.129.131 
.141 .138. 131.131 

570 DATA 134.140.141.143.133.143 
.143.143.133.143.138.143.132.140 
.135.138.140.141 

5B0 DATA 141.143.138.143.133.143 
,142.143.134.143.137,143.133,134 
.143.138.143.143 

590 DATA 139.131.135.143.139.131 
43.143.131.143.143,135.143 
39.131.131 
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of THE RAINBOW 



Compiled by Julie Hutchinson 

Eleven years? Thai's right, and Ihis is our ninlh yearly index of articles and reviews. 
The items listed here appear in issues of THE rainbow from July 1991 to June 1992. 
(Previous indices appear in past July issues, starling with July 1984.) To complete your 
RAINBOW library, you'll find more information about how to get back issues with your 
favorite programs and articles on Page 18 of this issue. 



B U SINES S 

Kia&Qti. Roger F. "CoCo Wrrles PurCiaswOrdws*. CoCo3; Jun» 



COMMUNICATIONS 

Fo<d.S»ven,-CoCoCo«iWfsai)On",Jul»i991 p?2 Getimg your 

hum radio license 
Hrach. Waffen C. "R4JBS Lis*": November 1991, p 14. Asbck-lr> 

your ftSBS <tea tor CoCo comrnurncaTiOfts. 
Kesster. Gary Serial Asynchronous Common«alons"; June 

1992. p 27 A look ai [he n«y gniiy be.-»od modems 
K-_r.s Eddie. 'Delphi Bureau". July 1991. p45 A mixed bag ol 

tricks. 
Kjns E*Je Delphi Bureaj'.Augusr 991 p 46 Literally soeak- 

ing. 
Kuns. Eddm-Dephi Bureau' Septembor 1991. p 28 Moro Ool 

i. ■--<:. r.:- 

Kuns. Eddie Deipb- Bureau': October 1991. p.H Database 

reconstruction. 
Kuns. Eddie. "Delpli Bureau". November 1991. p.3V Group 



Kuns. Eddie. Delphi Bu-eau': June 1992. p 18 New Features 
Ha^bow Statf. The. "Data Transmission Reaches New Speeds'. 
March 1992. p. 1. 

EDITORIAL COMMENT 

Fa*. Lorinie -Prvwt-jr Jjly 'W p08. 

Fafc. Lonnie "P'cw*?". AjC/uSl '991 p 10 

Fafc. Lonnie ~f > nm*-2~; September 1 991 . p.08 

Fa*. Lonnie. "Pr\rvri-2": October 1991. p.08. 

Fal«. Lonnie -Prirw»-*r. November 1991. p.08. 

Fa*. LonnW -Pn«*-?: December 1991 p.08 

Fak. Lonnw -Pml« 2": January 1992. p.07. 

Fa*. Lonnie ftMa-T: February 1992. p07 

Fa*. Lonnw -Pnnt"-2"; March 1992. p 02 

Fa*. Lonnie -Primt-2-; Apr* 1992. p 02 

Fa*. Lonnie -Prirtft-2". May 1992. p02. 

Fa*. Lonnie -Prinrt-r; June 1992. p.2. 



EDUCATION 



Kuns. Edda ■Delphi Bureau". Docember 1 991 . p 32 Submission 

ideas 
Kuns. Eddie. 'Delphi Bureau". January 1992. p 16. Editing suo- 



Cheves. Warren Xet CoCo Do the Gratfng."; CoCol/CoCoa' 
CcC03i September 1991. p. U. A motipie-cftotce test g-ader 
with strings attachod MCTEST 

Ellon. J' Phil tteme That Country". CoCo3 September 1991 
p 058 A graphics-based qua on nations. COUNTRY. 



Kuns. Eddie "Delphi Bureau". February 1992. p29 Edriing 

sjomssions it. 
Kuns. EdcHo. "Delpii Bureau': May 1992. p 25. 



GAMES 



AUamonow. George 4 Allamonow. Elcn "Swap Around (or Log*: 
Suits'. CoCo3. May 1992. p 1 7. Test your logical Imnlung 
sluts SWAP. 



Dueck. Jon 'Pirate's Treasure': CoCo1rCoCo2rCoCo3: Decern 

berl 991. p.46. Alert advenrureloruse with the CoCo i.2and 

3. DEMON 
GaRS. Kevin. The Wizard Puts a Hex on Checkers-; C0C0K 

CoCo2'CoCo3. March 1992. p.1 Alwist on checkers as we 

know i- WIZARD 
Golias. Ruth. •Actrrties tor a Rany Day"; CoCo3; Apn! 1992. p.4. 

Eeraoy Weensey Softer in graphic and nvuseal form EW 

SPIDER 
Hegberg. Joel M. -Racing Season Opens 1- ; CoCo3; May 1992 

p 28 Auto race through al lour seasons SRACER 
Kimbal, Bob. 'Patriot Command": CoCol/CoCo2>CoCo3. April 

1992, p.20. Desert warfare 'or the CoCo. PATRIOT. 
McOowd. Jim Two Players lor the Prce ot Ono*. C0C0I.' 

CoCo2rCoCo3. June 1992. p.11. A two-player arcade game 

lor all CoCos. STARGRA8. 
Oueftiorst. George 'Pyramid 2"; CoCo1iCoCo2>CoCo3; Otto 

ber 1991. p.25. An odds-on lavorite with Solitaire. PYRA- 
MID? 
Rentro. Brad "Word Search". CoCo3, March 1992. p 6 A word 

l«ler tor word-search players WORDFIND 
Saya. John A. -Qmck Relie>es Are a Must": CoCo3; April 1992. 

p 25 A game ol luck (and **■). TESTLUCK. 
Saya. John A. "Get a Bang Out ol Word Games'; CoCo3. June 

1992. p22 Beat the bomb by unsaamtrtng the words 

BEATBOMB 
Schaller. David "Supeidice';CoCol/CoCoaCoCo3; July 1991. 

p.4i. A modem roll tor a seasoned game SUPRDICE. 
Speghl. Kevin. 'Logic Puzzler*: CoCo1»CoCo2.CoCo3: Fobru 

ary 1992. p 024 An endless supply ot log*: puzzlos, LOGIC. 
Wew.r*urger, M -Megalank'; CoCo3; August 1991. p34. A 

ba-rie ot wits agafsi al«n torces. MEGA TANK. 

GENERAL 

Moore. Rob. -Tenth Year ol The RAINBOW. The"; July 1991. 

p 60 Indei 10 articles, programs reviews and authors from 

1991 
Palmer. Bill HP DcsOct and the CoCo. The"; May 1992. p.1. 

Using the DeskJet w*h the CoCo for better results 
Rainbow Staff The The Computer Win Apr! 1992 pi Aloe* 

at making a w* lor your computer system 

GRAPH ICS 

Bemico. Bill -Add Pnazz 10 Title Screens': CoCoi/CoCoZ' 

CoCo3: May 1992, p 30 Use graphics tricks 10 create fancy 

lifle screens. TITLES. 
Cut*. H Alien 'UHraiace The Epson Version*; CoCo3; August 

1991 . p.56 Part IV brings t>v> Epson IBM ccmpatible version. 

ULE 
Cuts. H Allen. Ultralace: The Tandy Version': CoCo3: July 

1 991 . p.34. Part III bnngs the Tandy version ol main U«ralace 

proccam ULT. 
Cutis. H Allen "URraiace: Tying the Knot": CoCo3: September 

1991 . p 32. instructions (c usng both versions ol the CoCo 3 
desktop. 

Curts. H AUen iNUalace Update and Upgrade*"; CoCo3: May 

1992. p.20 ALTUL. 

Dahfcc. Ron. 'Expander Gives the Full CoCo 3 Picture": CoCo3; 

June 1992.P 24 Using the luB 225 l«es on the Hi'Re* screen. 

EXPANDER 
Fnescn, Geoff. 'Font Magician": CoCc3: August 1991 . p 06 Add 

tlm IBM e.uioded characler sei 10 the CoCo 3*s graphics. 

MKFONT 
Kenny. Keiran, -CoCo 3 Sees Stars': CoCo3; Apnl 1992. p 8, 

CoCo 3 draws stars wth various numbers of points VAP1S- 

TAR. 
Mrlchei. Barry. Turn the Work) On EntT;CoCo3:June 1992. p .12. 

A graphics and sound demo for the CoCo 3 INORBIT 
Severs. Roger "Gone Fishin- CoCo3: Apr' 1 1992,p27 Arjuickie 

animatmn demo for the CoCo 3. FISHW 



HARDWARE 

Charrcs. Dan. 'Intenupt-Driven Serial Communications*: CoCo3; 

February 1992 p 36 Reliable host operalon through the 

CoCo 3 serial port. DANTERM. 
Dvstefario. Tony. Turn of the Screw"; July 1991. p. 48 Asfcceol 

l«ne 
Qslefanc, Tony. Turn ol the Screw"; September 199 1 . p.42. Its 

about time SETM. 
Dtttetaro. Tony Turn ol the Screw*; October 1991 . p.18. EPROM 

programmer, too EPROMASM 
Datefano. Tony. Turn of the Screw", January 1992. p.36 Hard 

drives and SCSI. 
Goodman, Marty. -Modihcabon Allows Y CaNes - ; March 1992. 

p. 7. A fix for dish controllers for use on Y cables. 
Goodman. Marty -RS-232 Retrofit"; Jury 1991. p.10. Convert a 

DC Modem Pak into an RS-232 pack 
German. Marty Upgrade You- Mult Pak'; October 1991 p,052, 

Using the MPI with the CoCo 3. 
Stetdi. Jeff. Pause Switch Adds Freedom to CoCo Habits'. June 

1992. p.10. A pause swicth that works wih all programs and 

CoCos 

HOME APPLICATIONS 

Duff. Stephen "Badge Master". CoCol/CoCo2.'CoCo3; Novem- 
ber 1991 , p.46. Track awards for members of your organiza- 
tion. BADGE. 

Gr«ard. Bob. 'House Inventory-; C0C0I 'CoCo2-CoCo3; July 
1991. p 14 Malung a ksl and checking A twice HOUSEINV 

Ktedaiscrt Charles. "Bar Graph Printer: C0C0I 'CoCo2CoCo3. 
June 1 992. p 24 A way to print quick and easy bar graphs 
BARGRAPH 

Mastorson, Peter. -Master Lisr: CoCol'CoCo2rCoCo3; March 
1992 p.24 A (eature packed Her W.DATA 

PotortBky. Davfl 'Versabase'; CoCo3; February 1992. p 10 A 
feature packed flexible filng system. VCRDATA 

Sabei A J. 'Spreadsheet Gets Right on the Course". CoCoi; 
CoCo2CoCo3; Apnl 1992. pi A spreadsheet lemptate for 
got* ba-K*eaop*>g. 

Spoight. Kevin. -Matchmaker, Matchmaker-, CoCol.CoCo2/ 
CoCo3. June 1992. p 16 Pa-ring 'couples* for most any 
purpose. MATCHMAK 

Spencer Brad. "CoCo 3 Stores Recipes. The". CoCo3; March 
1992 p.14 A repeat recipe filer Iw Ihe CoCo 3 RECIPE2 



MUSIC 



Milkw Wttam K "Musk Tulor": CoCo3: October 1991. pf.9 
Learn (o read mus»C with a QUIZ NOTETUTR. 

Noon Walt. 'CoCo Sound Generator. The"; CoCoi;CoCo2' 
CoCo3, December 1991 . p 30 Add betb and whittles to yen-t 
BASIC creal^ns SOUNDGEN 



NOVIC ES,NIC_HE 



Atiamc--tow, George. •Peggrty"; CoCo3: December 1991. p 22 
PEGGITY. 

Barberian Jr.. Rich. "Echo': CoCol/CoCoaCoCo3. November 
1991. p.2? ECHO. 

Bermco. Bill. "By the Numbers": CoCo3; January 1992. p42 
NUMBERS 

Bernco Bill *Pop-Up Menus': CoCo3: February 1992. p.34 
POPUPMEN. 

Borneo. B« -Press Continue". CoCo1t"«Co2.CoCo3; Decem- 
ber 1991. p.20. PRESCONT. 

Cternons. John D -CoCoDot-; CoCo3; November 1991, p.28. 
COCODOT. 

Day. Darren Blaine 'File Size"; CoCoi CoCo2-CoCo3: Decem- 
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fSar NX-1 020 



This CoCo compatible NX-1 020 system sels new standards in color 
printer performance.. 225 cps, 4 NLQ fonts including Script, plus a 
high speed draft font; but the enhancements don t stop there. Add a 
16k butter, a special quiet mode, top teed, bottom and rear tractor, and 
the list goes on. Seven on-demand colors. 8 color graphic modes. 
Epson and IBM emulation tor maximum software compatibility. 
Virtually everything desired in a printer is here — speed, color and 
versatility at an affordable price with a 2 year warranty. 

Our Plug'n'Go for the Coco system includes: 

• HX-1020 Multi Font Color Printer 

• Blue Streak Ultima 

• Software Support Disk 

• Color Graphics Utilities 
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■tar NX-1 001 



This CoCo compatible NX-1001 system is fully featured with 4 NLQ 
plus a draft font. 10 character sizes from subscript to quadruple size, 
4k butter. 180 cps. friction and tractor feed, and much much more. 
Backed by a 2 Year warranty Epson and IBM emulation modes for 
maximum software compatibility A performer so versatile you may 
never exhaust it s creative possibilities! 

Our Plug'n'Go for the Coco system includes: 

• NX-1001 Multi Font Printer §1 OO88 

• Blue Streak Ultima 

• Software Support Disk 
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The Ultimate Serial to 
Parallel Interface! 

The Blue Streak Ultima 

7Switchable Baud Rates - 300 thru 19200! 



STAR 24 WIRE PRINTER SYSTEMS ALSO AVAILABLE! 
CoCo compatible • Color ant Monochrome • Call for pricing 



An interface cable that converts the serial output ol a CoCo 1 . 2 or 3 

toastandard parallel format, compatible with modern parallel printers 

Connecting the Ultima isas easy as plugging mthe cable! The four pin 

din plugs into the serial I/O port ol your CoCo and the other end. a 36 

pin connector, connects lo the parallel port 

ot the printer. 

The Ultima is powered with the »5V supplied 

by most printers on pin 18. If your printer 

does not have *5V on pin 18 you II need to 

add Ihe power option when ordering. 



$ 39 
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s? snipping 

POWERED VERSION 

ADD S6 00 



Order Your System Today... Call (513) 885-5999 



DAYTON ASSOCIATES r, INC. 

9644 Quailwood Trail • Spring Valley, Ohio 45370 
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All Dayton Associate's products have 
a 30 day moneyback guarantee. 
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1992 p.10. A look at what archiving tools ore available 
Kientzle. Tim 'Communicaltfig Wilh OS-9": CoCo1-CoCo2' 

CoCoS; November 1991. p.22. GetGng tte woro out about 

going onlne 
lOenizle. T«n "Making the Move": CoCoi /CoCoeCoCo3: Octo 

Per 1991 . p.010 Transferring files bctweon Dis* BASIC and 

OS-9. 
Kimbal. Bob "Patriot Command*; CoCol; CoCo2'CoCo3; Apr* 

1992. p.20. Desert warfare lor tho CoCo PATRIOT. 
Knoppow, Jim 'Screen Selector". CoCoS; January 1992. p40 

SCREEN 
Krueger. Roger F CoCo Writes Purchase Orders-; CoCo3; jLno 

1992. pi Use the CoCo 3 lor mail-order ana other needs 

COCOPO 
Kuns. Eddie "Delphi Bureau*; July 1991. p.45. A mixed bag ol 

tricks. 
Kuns. Eddie "Delph. Bureau*; August 1991 . p 46 L-teraHy speak- 

mg. 
Kuns. Eddie. "Delphi Bureau*: September 1991 . p 28 More dot 

commands. 
Kuns. Eddie. "Do phi Bureau': October 1991. pU Database 

rooonsirudion 
Kuns. Eddw "Delphi Bureau": November 1991. p.31 Group 

descriptions. 
Kuns. Eddie 'Delphi Bureau": December 1 991 . p.32 SuDmisson 

ideas 
Kuns. Eddo. "Delphi Bureau": January 1992. p 16. Edrungsub- 

- sMons. 
Kuns. Eddie. "Delph' Bureau'; February 1992 p.29 Editing 

suDmes-ons II 
Kuns. Edtfo. Delphi Bureau"; May 1992. p.25. 
Kunt Edo*M n-11/1 Hurnrfi/ .1 ri.. 1882 ; H Mm i' Muni 
Law. Greg "Breakpoint"; CoCo3: August 1991. p 16 Usrng 

system cans. GET_ID.C. 
Law. Greg "BreakPoinr: October 1991. p.'i Creating a C 

library. 
Law Greg "BreakPo«r;CoCoiCoCoZCoCo3; December 1991 

p.44. The procedure generator. PROCGEN.B09. 



Law, Greg "SreakPoinr. CoCo3. February 1992. p.18 Upper- 
case directories. MAKEDIR.C. 
Law. Greg. "Breakpoint"; CoCo3; Apm 1 992, p.18. Salvage Files. 

SALVAGE.ASM. 
Law. Greg "BreakPofH"; CoCo3; May 1992. p.22. TRS.C 
Mabry. George M. "Card-Player's Sort. The*. CoCol/CoCov?/ 

CoCo3: June 1992. p.5. Sort data the card-players way. 

CARDSORT. 
Masterson. Peter. -Master Let*: CoCol /CoCo2/CoCo3: March 

1992. p.24. A leature packod tiler. MLDATA 
McDowell. J«i Two Players tor the Price ol One*; CoCol/ 

CoCo2CoCo3; June 1992. p 1 1 . A hvo-player arcade game 

lor all CoCos. STARGRAB. 
Mfler. Wntam K. "Music TutoT; CoCo3; October 1991. p 59. 

Leam to read music wflhaaulz. NOTETUTR 
Mflchel. Barry. Turn the Work) On End*; CoCo3; June 1 992. p 1 2 

A graph cs and sound demo (or the CoCo 3 INORBIT 
Moore, Rob. Tenth Year ol The RAINBOW, The"; July 1991. 

p.60. Index to articles, programs, reviews and authors Irom 

1991. 
Musumeo). John. *DoSpaco. DeSpace": CoCol 'CoCo2/CoCo3. 

January 1992. p.40. DESPACE. 
Nee. Wilam P. -Assembry Lme. The*; CoCoi'CoCo2XoCo3 

July 1 991 . p.28. The machine language matbag PUCHINK1 
Nee. Wiiiam P. 'Assembly Une. The*; CoCo1''CoCo2.'CoCo3: 

August 1991. p.41. Using assembly-language macros EN- 

LARGE'. 
Nee. William P. "Assfimbfy Line, The"; CoCofCoCoZCoCo3. 

September 1991. p.18 A f*»e fern AFFCOMP 
Nee. William P. "Assembly Line. The"; CoCol'CoCoZ'CoCoS; 

October 1991 . p.43. CoCo makes waves. WAVES! . 
Nee. William P. "Assembly Une. The"; CoCofCoCoZCoCoS: 

November 1991 . p 18. The Game of life LIFEDRVR 
Neo. William P "AssembV Une, The"; CoCol CoCoZCoCoS. 

January 1992. p.20. The game ol Mil MILLDRV. 
Nee. William P -Assembly Line. The": CoCol .'CoCoZ'CoCoS; 

February 1992. p.20. Zig Zag. Z1GZAG0R 
Noon. Wall. 'CoCo Sound Generator. The-; CoCoI/GoCo2> 

CoCo3; December 1 99! . p.30. Add bets and whistles to your 

BASIC creations SOUNOGEN. 
Noms. John. "Cable TV; CoColiCoCo2-CoCo3; October 1991. 

p.36. CABLETV. 
Nugent. Robert C. "Egg TmeT; CoCo3; November 1991. p.29. 

FGGTIMFR 
Page, Mark "Check Disk"; CoCoS. January 1992. p.41. CHKDSK 
Palmer, B*. *HP DeskJet and the CoCo. The"; May 1992. p I. 

Using the DeskJet with the CoCo lor better results. 
Polonsky. David. "Photo Database"; CoCo1'CoCo2'CoCo3. 

January 1992. p.42 CAMERA. 
Polonsky, David 'Vcrsabaso". CoCo3. February 1992. p.10. A 

laat urn-packed flexbte filing system VCRDATA. 
Ouellhorst. George. "Pyramid 2": Ct-Cc l CoCcSCoCc? Octo- 
ber 1991. p.25. An odds on lavonte with SoHaire. PYRA 

MID2 
Rainbow Staff, The "Data Transmission Reaches New Speeds"; 

March 1992. p. 1. 
Rainbow Staff. The "OS-9 Hotline*. July 1991, p.58. Passmg 

parameters. 
Rainbow Slaft. The. "OS-9 Hotine*: August 1991. p.38. Down to 



Rainbow Stall. The "OS-9 Hotline': September 1991 . p 48 
Rainbow Stan. The "OS 9 Hotline"; October 1991. p.30 
Rainbow Stall. The. The Computer WHT; Apr* 1992. p.1 . A look 

at making a will lor your computer system 
Rcnlro. Brad. "Word Search*; CoCo3: March 1992. p.6 A word 

Imder (or word search payers WORDFIND 
Rcketts. Steve "Disk Table'; CoCot.'CoCo2>CoCo3; January 

1992. p 40. DISKTA8L 
Rumpel. Kalhy. "Direclory Helper; CoCo3: January 1 992. p.26. 

An icon-driven disk-file manager DIRECT 
Sabei. A.J "Spreadsheet Gels Rxjhl on the Course": CoCoi.' 

CoCo2yCoCo3: April 1992. p.1. A spreaosheet tempute (or 

golf handicapping. 
Saya, John A "CoCo Hangman"; CoCo3; February 1992, p 32 

COCQHANG, 
Saya, John A. *Get a Bang Out | Word Games". CoCo3. June 

1992. p 22 Beat the bomb by unscrambling rva words 

BEATBOMB. 
Saya. John A. "Quk* Reflexes Are a Must"; CoCo3: April 1 992 

p 25. A game ol luck (and skill) TESTLUCK 
Scnaller. OawJ "Superd.ce-; CoCo 1 -CcCo2CoCo3 ; July 1 99 1 . 

p.4l. A modem roll for a seasoned game. SUPRDICE 
Severs. Roger "Gone Fishin":CoCo3. April 1992. p.27 Aouickie 

an mat on demo tor the CoCo 3. FISHIN 
Spcighi. Kevin. "Logic Puzzler; CoCol-CoCo2'CoCo3; Febnj- 

ary 1992. p.024. An endless supply ol logx: puzzles LOGIC 
Speight. Kew "Matchmaker. Maichmaker; CoCol/CoCoZ' 

CoCo3: June 1992. p.16. Pairing "coup'es* lor most any 

purpose. MATCHMAK. 
Spencer Brad. "CoCo 3 Stores Recces. The"; CoCo3; March 

1992. p.14. A repeal rcope her for ihe CoCo 3 RECIPE2. 

Stek*. Jefl. Pause Swiich Adds Freedom to CoCo Habiis*: June 

1992. p.10 A pause sv.Kth that works wflh ai programs and 

CoCos. 
Voss. Mikel. "Sme Lines 3": CoCoS: February 1992. p.32. SIN- 
LINES 
W<wenDurger. M Mcgatank*; CoCo3; August 1991. p.34. A 

bati'e of wits against alien forces MEGATANK 
Wodridge. Mke Move PRINTS lo a New Location-: CoCo3: 

Juno 1992. p.14. A convener lor relocating PRINT® stale 

ments. CONVERT. 
Wyss-GaltCenl. ST -Gray-Level Prm.ng for HSCREEN2 : 

CoCo3:May '992. p.4. Achieve 11 graylevels for HSCREEN2 

pnfflouls. AUTOGRAY 




To lemporarily pause Ihe execution of 
a BASIC program, programmers often 
use something like 

10 A$-INKEY$:IF A$-" THEN 10 

Another way to accomplish the same 
thing (perhaps you've already seen it in 
Rainbow listings) is to use 

EXEC 44539 

This command tells the computer to 
wait for the user lo press a key. If you 
need to determine which key the user 
presses, you can follow the EXEC com- 
mand with 

A$-CHR$(PEEK(135)) 



THE RAINBOW 



Julv 1W2 



27 




Thecritk^vrillberavingabODlthistlralcgyganK^Bi^onanonginalconceplbyauUiotletrSlcMlel. 
Photon a an addictive lime-muncher in thespinl of l*mminp nt and Teim™ Match win with 
^devidr. the evil powrrdroid, as you reason yourway through over 60 devjou* levels. The numerous 
original musksco res, digitized ipeecli and sound effects, and plculnganimaiionandgraphicsernch 
Photon io make il an unparalleled gaming experience. Soon lo be released on a variety of computer 
platforms. iheGoCo Community u lucky enough to be given first gla nee at this fantastic game! Req. 
1 2Hk CoCo-s. dak drive, and joystick. 

$34.95 



50% OFF! 

SundogSyMCTn?iiHrt»TngouiMlccIcdback-«locksoftvirc.andyoutajinoHUlica(l*anlagcoflhfSe 
bargains :o complelryour Sundog collection! Fora limited time, you can buysomcof IhcbalCoCo 
game* at 50% off retail piiert! Half off factory-new game software. . . you'll never find a better deal! 

Paladin's Legacy reg.B4.95 now $12.45! 

H«U of the King l,2,or3 reg.S2«.95 rUtviM.95.' 

Kung-fu Dude reg.SJ4.9b now $12.45! 

White Fire of Eternity rtg.S19.9S now $9.95! 

Dragon Blade rcj.SI9.95 now 59.95.' 

Champion rcg.si9.9S now 59.95/ 




PO Box 766 Manassas, VA 221 1 1 
(703) 330-8989 

Was, vr. <h>k. mo, ud cod ;us »*. pbw) Kopod An i>opi 

(wdii.aiutfb.MiiKaLSammfvMO'.liidod.U Mfc«itBppta|inUSA 
ft Cuudfc Si fete J) era. for COD ordm PA f—dato lid 6**ij- 



JWT Enterprises 



Oplimi/e Utl'lltV Set 1: Optimize your disks by eliminating fragmented files 
and comparting your directories for faster file access. Running time averages one 
hour. Also includes a utility to assess file fragmentation and directory fragmenta- 
tion as well as excess directory padding. Can work in conjunction with Burke & 
Burke's repack utility. Look for upcoming review in Rainbow. $29.95: Foreign 
Postage, add 63. OO 

Optimize UHlitV Set 2: Contains two programs lo check the integrity of your 
disks. Detect and correct any directory or flic structure errors. Run periodically 
and before any optimizations to Insure the reliability of your data. Look for upcom- 
ing review in Iteii-ibuu: 019.95; Foreign Postage, add $3.00 

Optimize Utility Set Pac: Combination of both optimize sets. I»urchasers of 
Ihe Opt imixe Utility Set 1 can upgrade for S9.95 with proof or purchase. $39.95: 
Foreign Postage, add $4.00 



i Each Issue contains: 9 helpful and useful programs to help build 
your OS-9 library * Instructions, examples, and samples of Baslc09 procedures 
and subroutines to help with your own programs and your understanding of 
Baslc09 • C programs and programming examples • Hints. Help columns, and 
Informative articles to advance your knowledge of OS-9 • Supplied totally of 5.25" 
disk • Bound manual sent to each new subscriber for help In getting Nine-Times 
up and running, as well as tips on using It with a ram disk or hard disk • All 
graphic/joystick Interface for case of use. One Tear Subscription, $34.95; 
Canadian Postage, add $1.00; Foreign Postage, add $8.00 

Back ISSUeS: Available for the May 1989 through November 1991 issues. Please 
write for information on Back Issue contents. $7.00 each; Foreign Postage, add 
$2.00 each 

Magazine Source: Due to many Inquiries, the source code for the magazine 
graphic presentation shell is being provided as an informational tool. Included is 
the actual Baslc09 source code and compiled modules on disk, as well as docu- 
mentation and a printed copy of the source code. $25.95; Foreign Postage, add 
$5.00 



'Ict'liuk-Lil A».iisUmiv tk lutfUJrfcs: 
(216)-758-7694 



/^\ 



JWT Enterprises 

5755 Lockwood Blvd. 
Youngsiown, OH 44512 

Sorry, no C.O.D.'s or credit card* Foreign A Canadian ordcni. ptm&r »»c D.8. money order*. 

U.S. checks, allow 6-8 weeks for receipt of first Issue/back Issue. 
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9509 U.S. Highway 42, P.O. Box 385, Prospect, KY 40059 

(502) 228-4492 • FAX (502) 228-5121 

l*s appreciate your mentioning IHE RAINBOW when you contact these advertisers 



MLBASIC 2.0 - BASIC Compiler 

Arc you tired of wailing for BASIC programs to finish running? Arc you looking for 
faster running programs without having lo learn assembly language? Do you like BASIC 
programming, but would like more flexibility in writing programs with more functions and 
capability? If your answer is yes lo any Of these questions, or even if il isn't, MLBASIC is 
Ihe program you should have. 

MLBASIC is a BASIC compiler that converts BASIC" programs into super lasi machine 
language programs. MLBASIC will produce a stand alone machine language program file. 
The program will then run by simply using ihc LOADM command. This means no oihcr 
BASIC or runtime programs are required when running programs compiled by MLBASIC 
If you want your BASIC programs to run up to 50 times faster, or want more 
programming feature* without learning another language. MLBASIC is for you. 
MLBASIC is the most compatible BASIC compiler available for the Color Computer. 
WHY? Because MLBASIC fully supports: 

o All available commands offered with normal BASIC, plus more 

o All types of I/O (dUfc f screen,printcr,RS232). plus machine level commands 

o Full floating point arilhmctic (same as normal BASIC) 

o All normal BASIC variable types PLUS INTEGER (16 bii) type 

o Allows for structured programming like PASCAL, C. and FORTRAN 

MLBASIC allows Tor the drst lime user to quickly compile a program using default 
compiler settings. The advanced user has the capability ofconirolling over a dozen sellings 
which control where the program is compiled, which media lo compile lo (memory or disk), 
string space, compiler listings and more. 

"MLBASIC is a fine program for any serious programmer" 
said David Gerald in the December 1987 RAINBOW. 

With all this going for MLBASIC you might expect the cost to be a little oui of your 
budget. -NOT. We arc continuing to offer MLBASIC at the Sslc Price of W9.9S for those 
readers of this months RAINBOW. But don'l hesitate, you can now have a programming 
language that will spark your interest in your Color Computer once again. 

SALE ******** $49.95 ******** SALE 

Add $4.00 Postage and Handling - COCO 3 with DISK REQUIRED 
Check, Money Order or COD acceplcd.Poreign Orders use U.S. MONK' ORDERS 

WASATCHWARE 

7350 Nutree Drive 

Salt LakcCily, UT 84121 

(801) 943-1546 




BIG SAVINGS on a full complement of radio shack computer products 



COMPUTERS 

Tandy 1 000 RLX HD with VGM-220 
Tandy 1 1 1 HD 1 Drive 640K 
Tandy 1800 HD 1 Drive 1 Meg RAM 
Tandy 1 000 RL HD with CM1 1 
Tandy 1 1 00 FD 1 Drive 640K 

PRINTERS 

TandyDMP-136213CPS 
Tandy DMP-302 270 CPS 
TandyDMP-202180CPS 
Tandy DMP-442 300 CPS 
Tandy LP-950 Laser Printer 
Tandy DMP-240 1 92 CPS 8 color 
Panasonic KXP 1 180 192CPS 
Panasonic KXP 1 12324Wlrehead 
Panasonic KXP 1 1 24 i300 CPS 
Okidata320300CPS 
Okidata 380 180CPS24 Wire HD 
OKI Laser 400 4PPM 

MODEMS 

Tandy DCM-6 

Tandy DCM-7 

Cardinal 1200 Baud External 

Cardinal 2400 Baud External 



839.00 
929.00 
929.00 
569.00 
469.00 



199.00 
469.00 
299.00 
539.00 
1299.00 
399.00 
189.00 
259.00 
329.00 
369.00 
239.00 
679.00 



52.00 

85.00 

99.00 

129.00 



COLOR COMPUTER MISC. 

Tandy Drive Controller 89.00 

Extended Basic Rom Kit (28 pin) 19.95 

64K Ram Upgrade Kit (2 or 8 chip) 39.00 

Tandy Deluxe Keyboard Kit 24.95 

HI-RES Joystick Interlace 8.95 

Color Computer Deluxe Mouse 44.00 

MultiPakPalChipforCOC03 14.95 

COCO 3 Service Manual 29.95 

Serial to Parallel Converter 59.95 

Tandy Deluxe Joystick 1 9.95 

Magnavox 81 35 RGB Monitor 299.00 

Magnavox Green or Amber Monilor 99.00 

CoCo3GimeChip 29.95 

Tandy Pistol Grip Joystick 26.95 

PBJ OK COCO 3 Upgrade Board 29.95 

PBJ 51 2K COCO 3 Upgrade 89.00 

Tandy OK COCO 3 Upgrade Board 39.95 

Tandy 51 2K COCO 3 Upgrade 99.00 



DISK 
25.95 



CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 
•SHOPPING CONVENIENCE 



Tandy is a leqtwmoa trademofk o* Tanoy Carp 



COLOR COMPUTER SOFTWARE 

TAPE 
The Wild West (COC03) 
Worlds of Flight 34.95 34.95 

Mustang P-51 Flight Simul. 34.95 34.95 
Flight 1 6 Flight Simut. 34.95 34.95 

com 



Tandy Educatioal Software 2.00 

Spinnaker Software 2.00 

Max 1 by Colorware 79.95 

AuloTerm by PXE Computing 29.95 39.95 

TW-80 by Spectrum (COCO 3) 39.95 

Telewriter 64 49.95 59.95 

Telewriter 128 79.95 

Elite Word 80 79.95 

Elite Calc3.0 69.95 

CoCo3512KSuperRamDisk 19.95 

Home Publishing by Tandy (CoCo 3) 35.95 

SubBattleSim.byEpyx(CoCo3) 26.95 

ThexderbySierra(CoCo3) 22.45 

Kings Quest III by Sierra (CoCo 3) 31 .45 

Right Sim. II by SubLogic (CoCo 3) 31 .45 

OS-9 Level 1 1 by Tandy 71.95 

OS-9 Development System 89.95 

Multi-View by Tandy 44.95 

VlPWriter(diskonly) 69.95 

VIP Integrated Library (disk) 149.95 

Prices are subject to change wttfioifl notice. Please call to* 
shipping charges. Prices In our retail store may be higher. 
Send lor complete catalog. 

-Sale prices through 8-10-92 




